Niestety nie o to mi chodzilo W podanych linkach jest kod, ktory wyswietla liste PC podlaczonych do sieci(z tego co zrozumialem) a mi chodzi o to zeby automatycznie wykryl na ktorym stoi serwer FTP. Gdzies slyszalem ze mozna wyslac plik z serwera na cala siec a potem jakas go pobrac nie majac ip serwera, jednak jak to zrobic to nie mam pojecia :oops: W kazdym badz razie potrzebuje czegos co sprawi ze nie bede musial podawac ip hosta gdy bede chcial pobrac plik z FTP ![-o<
uses Winsock;
procedure TForm1.FormCreate(Sender:TObject);
var wVersionRequested:WORD;
wsaData:TWSAData;
begin
//Ładujemy bibliotekę Winsock
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
end;
procedure TForm1.Button1Click(Sender:TObject);
var p:PHostEnt;
s:array[0..128] of char;
p2:pchar;
begin
//Pobieramy nazwę komputera
GetHostName(@s, 128);
p := GetHostByName(@s);
Memo1.Lines.Add(p^.h_Name);
//Pobieramy jego adres IP
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Memo1.Lines.Add(p2);
end;
procedure TForm1.FormDestroy(Sender:TObject);
begin
//Zwalniamy Winsock
WSACleanup;
end;
Na formie powinno znajdować się memo o nazwie Memo1. W podany sposób można też łatwo sprawdzić czy jesteśmy podłączeni do sieci. Gdy nie ma połączenia z Internetem to adres ma postać 0.0.0.0