Arkadaşlar bana Delphide hızlı bir biçimde Ağ üzerindeki makinalara ping atmanın yolu gerekli bilen varsa yazarsa sevinirim

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

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

arkadaşlar hayırdır kimseden ses seda yok

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

Warrior serial eklerken int. bağlı olmadan dene bir

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

birde istanbulda delphi kursu varmı acaba?

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.

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

kardeş o zaman git bir kursa yazıl. Ama yinede kendini geliştirecek olan sensin bunu asla unutma

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.

Delphi 7 nin update ini nereden bulabilirim ??? lütfen cok acil

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

full surum ve ya *****li olursa sevinirim

arkadaşım bu tip isteklerini lutfen program download bölümüne yap

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.

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...

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ş.

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.

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.