IRC u Delphi-u?? Mali problem

Hteo bih samo da ti toplo preporucim koriscenje API-ja. Ja licno ne podnosim delphi komponente, a posebno me nerviraju te za networking ;)) To isto mozes veoma lako da uradis preko API-ja.

1. U "uses" dodaj WinSock;
2. U npr. Form1.OnCreate stavish sledece:
var
WSA: WSAData;
begin
WSAStartup($202, WSA);
end;
3. Pa onda negde u programu (za probu moze na Button.OnClick)
var
s: TSocket;
a: sockaddr_in;
r, primljeno_bajtova: integer;
buf: array[1..1024] of char;
begin
s := socket(AF_INET, SOCK_STREAM, 0);

a.sin_family = AF_INET;
a.sin_port := htons(6667); // ovde stavish port koji ti treba
a.sin_addr.s_addr := inet_addr("127.0.0.1"); // ovde stavish ip addresu

r := connect(s, a, sizeof(sockaddr_in));
if r=SOCKET_ERROR then
begin
ShowMessage('Greska pri konekciji!');
exit;
end;

// sa sledecom komandom primash podatke u array buf
primljeno_bajtova := recv(s, buf, sizeof(buf), 0);

// a sa ovom komandom saljes podatke koji se nalaze u array-u buf
send(s, buf, sizeof(buf), 0);

end;

Ako ti nesto nije jasno pitaj.
Mala napomena: Ovo je najprostiji moguci primer i socketi su u "blocking" modu.
Sto znaci da ce ti se program "zalediti" kad bude doshao do npr. recv i bice zakocen
sve dok ne stignu neki podatci.

Ako te ovo interesuje pitaj, pa cu da ti objasnim kako da koristis WSASelect.

kome sam ja pokushao da pomognem... ccc ;)
nikad od tebe nece biti programer sinko.