Cevapla
 
Konu Araçları
Eski 23-03-04, 10:00 #21
balli_balik balli_balik çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

Arkadaşlar bana Delphide hızlı bir biçimde Ağ üzerindeki makinalara ping atmanın yolu gerekli bilen varsa yazarsa sevinirim
__________________
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 23-03-04, 16:12 #22
arachnida arachnida çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz


unit NetUsers;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TNetUsers = class(TComponent)
private
{ Private declarations }
fServer : String;
protected
{ Protected declarations }
Procedure SetServer(Server : String);
public
{ Public declarations }
UserList: TStringList;
Constructor Create(Owner:TComponent); override;
Destructor Destroy; override;
Function Execute : Boolean;
published
{ Published declarations }
property Server :String read fServer write SetServer;
end;

PnetResourceArr = ^TNetResource;

procedure Register;

implementation

Procedure TNetUsers.SetServer(Server : String);
Begin
If fServer <> Server Then
fServer := Server;
End;

Constructor TNetUsers.Create(Owner:TComponent);
Begin
Inherited Create(Owner);
If Not ( csDesigning in ComponentState ) Then
Begin
UserList := TStringList.Create;
UserList.Sorted := True;
End;
End;

Destructor TNetUsers.Destroy;
Begin
If Not( csDesigning in ComponentState ) Then
UserList.Destroy;
Inherited Destroy;
End;

Function TNetUsers.Execute : Boolean;
Var
NetResource: TNetResource;
Buf:Pointer;
Count, BufSize, Res: DWORD;
i : Integer;
lphEnum: THandle;
p : PnetResourceArr;
Begin
Execute := False;
UserList.Clear;
GetMem(Buf, 8192);
Try
FillChar(NetResource, SizeOf(NetResource), 0);
NetResource.lpRemoteName := PChar(fServer);
NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;
NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;
NetResource.dwScope := RESOURCETYPE_DISK;
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);
If Res <> 0 then Exit;
While true do
Begin
Count := -1;
BufSize := 8192;
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
If Res = ERROR_NO_MORE_ITEMS then Exit;
If (Res <> 0) then Exit;
p := PNetResourceArr(Buf);
For i := 0 to Count - 1 do
Begin
{ Ağdaki kullanıcı isimlerini Userlist listesine ekle}
UserList.Add(p^.lpRemoteName + 2);
Inc(p);
End;
End;
Res := WNetCloseEnum(lphEnum);
If Res <> 0 then Raise Exception(Res);
Finally
FreeMem(Buf);
Execute := True;
End;
End;

procedure Register;
begin
RegisterComponents('Sil', [TNetUsers]);
end;

end.

//kullanımı
{
procedure TForm1.Button1Click(Sender: TObject);
begin
NETUSERS1.EXECUTE;
listbox1.items.assign(netusers1.userlist)
end;}


yukarıdaki program ağdaki kullancıları belirlemeye yarıyor ve bunların iplerini bir liste halinde sana veriyor
ve son kisimda listeye döktürmek yerine
bir tcp/ip componenti koyup oradan dönen değerleri pingleye bilirsinz
yapamazsan yaz ben bakarım

arkadaşlar biliyorum hepinize birden mesaj yazamıyorum ama inanın şu aralar çok yoğunum elimden geldiğince yetişmeye ve yardımcı olmaya çalışıyorum.

Zep programı indirecem bakcam
herkese kolay gelsin

http://www.fixdown.com/sort/n_142_2.htm
http://www.fixdown.com/sort/n_142_3.htm
http://www.fixdown.com/sort/n_142_4.htm
http://www.fixdown.com/sort/n_142_5.htm
http://www.fixdown.com/sort/n_142_6.htm
http://www.fixdown.com/sort/n_142_7.htm



bu arada bu linkte bissürü çok pahalı componentlerin bedava halleri yer almakta quantum grid fast report gibi buralardan bakarak bulabilirsin
ben araştırdım göremedim adınıda bilimyorum componentin
ama burada büyük ihtimalle vardır
bazen download linkleri çalışmıyor ama tekrar tekrar denemekte fayda var
ben buradan bir kaç component aldım ve çalışıyor hepsi

Mesajı son düzenleyen arachnida ( 23-03-04 - 18:07 )
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 24-03-04, 21:01 #23
hacker hacker çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz


Delphi ile ADO veritabanı bağlantılı bir program yazdım. Veri tabanına string bilgiler yanına bir de image saklıyorum. Fakat image'in *.bmp formatında olması gerekiyor. Ben bitmap dosyalar fazla yer kapladığından jpeg formatlı image'ler saklamak istiyorum. İşte sorun bu : Nasıl *.jpg uzantılı bir dosyayı veri tabanına saklayabilirim? İlginiz için teşekkürler.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 25-03-04, 12:29 #24
arachnida arachnida çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

Alıntı:
Gerçek Mesajı Gönderen hacker
Delphi ile ADO veritabanı bağlantılı bir program yazdım. Veri tabanına string bilgiler yanına bir de image saklıyorum. Fakat image'in *.bmp formatında olması gerekiyor. Ben bitmap dosyalar fazla yer kapladığından jpeg formatlı image'ler saklamak istiyorum. İşte sorun bu : Nasıl *.jpg uzantılı bir dosyayı veri tabanına saklayabilirim? İlginiz için teşekkürler.
arkadaşım bunun daha güzel ama biraz zahmetli bir yolu var bu yol ise jpg dosyaların dosya isimleri ve yollarını bir klasörde saklaman örneğin
mysql kullanıyorsun ve bir alan açıyorsun adres diye bu alanı varchar tanımlıyorsun 255 char olsun daha sonra

if opendialog1.execute than
begin
veritabanı.append;
veritabanı.adres.value:=opendialog1.filename ;
veritabanı.post;
end
bu şekilde veritabanına bir opendialogdan aldığın adres uzantısını girebilirsin. ve burada saklaya bilirsin
umarı mantığını anlatabilmişimidir
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 30-03-04, 08:31 #25
arachnida arachnida çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

arkadaşlar hayırdır kimseden ses seda yok
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 30-03-04, 19:03 #26
WARRiOR WARRiOR çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

ya usta ben delphi 7 buldum bir arkadaştan.. serial numarası falanda var yazdım.. ama açınca unregistered diyo neden acaba? online kayıt yaptırmak istedim yemedi
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 30-03-04, 23:11 #27
Sessiz_cin Sessiz_cin çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

Warrior serial eklerken int. bağlı olmadan dene bir
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 31-03-04, 01:57 #28
WARRiOR WARRiOR çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

aktivizyon gibi bişey istiyor dostum çözemedim..

birde istanbulda delphi kursu varmı acaba?

Mesajı son düzenleyen WARRiOR ( 31-03-04 - 02:12 )
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 02-04-04, 14:55 #29
arachnida arachnida çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

benim sana tavsiyem eğer pascal veyahut bir programlama dili biliyorsan otur başına örneklere bak bir kitap al bbabalar gibi çalış een fazla 3 ay içinde içinden çıkarsın ama kimse yanlış anlamasın 3 ay içinde profesyonel programcı olunmaz benim sadece sölemek istediğm programlama mantığı ve elinddeki programlama dili ile neler yapabileceğindir ve biraz ingilizce ile kod yazarken sıkıştığında işleyişini bilmediğin bir kodda F1 tuşu sana can simidi olacaktır.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 02-04-04, 19:40 #30
WARRiOR WARRiOR çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

arachnida ben hiç bişey bilmiyorum hocam sadece HTML bilirim

bu yüzden kitap bana bende kitaba bakmayalım diyorum bir bilenden alayım diye düşündüm temeli
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 06-04-04, 08:35 #31
arachnida arachnida çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

kardeş o zaman git bir kursa yazıl. Ama yinede kendini geliştirecek olan sensin bunu asla unutma
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 06-04-04, 12:06 #32
Sessiz_cin Sessiz_cin çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

warrior intternetden güzel kaynak war mı ne kursu yaw dolu site war biraz aramak yeticek Delphi 6 kullan ben hiç ısınamadım 7 ye kazaadan indirebilirsin.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 06-04-04, 12:37 #33
pepepedro pepepedro çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

Delphi 7 nin update ini nereden bulabilirim ??? lütfen cok acil
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 07-04-04, 15:21 #34
metsatx metsatx çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

merhaba arkadaslar benim acilen delphi 7 veya delphi 6 download linkine ihtiyacim var yardimci olabilrmisiniz?

full surum ve ya *****li olursa sevinirim
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 09-04-04, 17:10 #35
arachnida arachnida çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

arkadaşım bu tip isteklerini lutfen program download bölümüne yap
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 12-04-04, 02:29 #36
vankedisi vankedisi çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

selamlar
yazdığım bir metni şifrelemek istiyorum hem de şu adresdeki 3. veya 4. yöntemle.
http://www.mutasyon.net/makaleoku.asp?id=233
yalnız orda perl ile yazılmış ben bunu delphide nasıl yaparım.memo1 e normal yazıyı yazsam çevir butonuna tıklayınca memo 2 ye şifreli hale çevirse.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 12-04-04, 12:46 #37
Sessiz_cin Sessiz_cin çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

procedure TForm1.Button1Click(Sender: TObject);
var
a: String[255];
b: array[0..255] of Byte absolute a;
c: Integer;
begin // memo1 dekileri sifreler
a := Memo1.text;
for c := 1 to Ord(a[0]) do b[c] := 23 xor b[c];
memo2.text := a;

//memo2 deki şifrelenmiş yazıyı normale çevirmek için
a := memo2.text;
for c := 1 to Length(a) do a[c] := Char(23 xor Ord(b[c]));
showmessage(a); // yada memo1.text:=a;
end;

Bu Basit şifreleme eğer kendin her harfe değer wermek istiyorsan ki onu tavsiye etmem çabuk çözülüyor a=0 deneme yanılmayla bulunuyor ,yukardaki kodu biraz kurcalarsan çok prof. bir şifreleme çıkarırsın kırılması 1m/1 olur...
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 12-04-04, 13:50 #38
vankedisi vankedisi çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

sağolasın sessiz_cin program bu haliyle çalışıyor.
ama ben her harfin karşılığını kendim belirlemek istiyorum (a=k, b=v r=p gibi )
acemi olduğumdan nasıl yapacağımı, bu tanımlamaları nereye yazacağımı bilemedim.birde onu gösterirsen işlem tam olur kardeş.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 12-04-04, 14:34 #39
Sessiz_cin Sessiz_cin çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

vankedisi onuda memo1.text in copy yöntemiyle herharfi if döngüsüyle karşılığını werecek şekilde döngü oluşturmalısın if copy(memo1.text,i,1)='a' then memo2.text:=memo2.text+'c' // burda while la i memo1.lenght le eşitlene kadar +1 eklet eğer a ise memo2 ye c olarak ekleyecek karşık oldu neyse codelayayım

function Sifrele(const Value : String) : String;
var
CharIndex : Integer;
ReturnValue : String;
begin
ReturnValue := '';
for CharIndex := 1 to Length(Value) do
begin
if copy(value,charindex,1)='a' then
begin
ReturnValue := ReturnValue + 'c'; //iste burda a=c oluyor

end;

if copy(value,charindex,1)='b' then
begin
ReturnValue := ReturnValue + '2'; // b=2 her harfi böyle eşitle büyük küçük harf önemli

end;

Result := ReturnValue;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=sifrele('sifrelemek istediğin metin');// veya label1.caption:=sifrele(memo1.text);
end;

tam tersini yaparakta çözersin

function Coz(const Value : String) : String;
var
CharIndex : Integer;
ReturnValue : String;
begin
ReturnValue := '';
for CharIndex := 1 to Length(Value) do
begin
if copy(value,charindex,1)='c' then
begin
ReturnValue := ReturnValue + 'a'; //iste burda c=a oluyor

end;

if copy(value,charindex,1)='2' then
begin
ReturnValue := ReturnValue + 'b'; // 2=b her harfi böyle eşitle şifrelemede kullanığının tersi olarak büyük küçük harf gine önemli

end;

Result := ReturnValue;
end;
end;
//kullanımı
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=Coz('Cozmek istediğin metin');// veya label1.caption:=Coz(memo1.text);
end;

Bu kadar kolay gelsin ama biraz araştır çok daha iyi şifreleme teknikleri war.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 12-04-04, 18:02 #40
vankedisi vankedisi çevrimdışı
Varsayılan Cvp: delphi ve asp için soru sorabilirsiniz

sessiz_cin ilgin için teşekkür ederim.seni zahmete soktum hakkının helal et.
yukarıdaki kodları uyguladığımda çalışmadı.benim formda iki memo nesnesi iki de buton var.(biri şifrele, diğeri çöz).formda label yok galiba ondan oldu.istersen mailine göndereyim nerede yanlış yapmışım bir bak.hatta şimdi gönderiyorum.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Cevapla

Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz

Konu Araçları

Gönderme Kuralları
Yeni konu açamazsınız
Cevap yazamazsınız
Dosya gönderemezsiniz
Mesajlarınızı düzenleyemezsiniz

BB code is Açık
Smiley Açık
[IMG] kodu Açık
HTML kodu Kapalı



Tüm saatler GMT +3. Şuan saat: 15:24
(Türkiye için artık GMT +3 seçilmelidir.)

 
5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz. Reklam Mailimiz. Gizlilik Politikası. Tatil
Copyright © 2019