Client og client imellem !!

Du får brug for en server, se chat programmet i demo biblioteket

www.udvikleren.dk

http://www.udvikleren.dk/vis_artikel.php4?id=43

det var svar

Du kan gøre det ved hjælp af en TServerSocket komponent og en TClientSocket komponent.

Disse komponenter har metoder til at sende binær data vha. SendBuf metoden og SendText metoden til at sende ren text.

Et lille eksempel:

procedure TForm1.Button1Click(TObject:Sender)
begin
  ClientSocket->Socket->SendText("Dette er en test");
end;

procedure TForm1.ServerSocketOnClientRead(Sender:TObject; Socket:TCustomWinSocket)
begin
  Memo1.Lines.Add(Socket.ReceiveText);
end;

Så du kunne jo indlæse din tekstfil, og for hver linie du indlæser, så sender du teksten via din socket forbindelse til modtageren, indtil du har sendt hele filen over.
Til sidst må du sende en speciel tekst over som indikerer at nu er du færdig.
Det er ikke den nogen særlig effektiv måde, men den virker, og du få en forståelse af hvordan TServerSocket of TClientSocket virker.

Hovsa. Det var et svar.

Prøv at kigge lidt på MailsSlots du kan finde noget source kode på www.torry.net

Jens B