Client server komunikacija

Vse kar se tiče programiranja za internet.
Odgovori
Xzibit
Prispevkov: 1
Pridružen: 10.04.2008 15:41:41

Client server komunikacija

Odgovor Napisal/-a Xzibit » 17.04.2008 11:40:22

Zdravo

Moj prvi n00b post :D. Zanima me kako bi dosegel več vrstično komunikacijo med serverjem in klientom. To mislim da bi prenesel podatke naprej iz edit1, nato edit2... Uporabljam ServerSocket in ClientSocket. Nekako mi ne uspe iz sledeče kode nastimat tega.

Koda: Izberi vse

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  i:integer;
  sRec : string;
begin
  for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
  begin
    with ServerSocket1.Socket.Connections[i] do
    begin
      sRec := ReceiveText;
      if sRecr <> '' then
      begin
        Memo1.Lines.Add(RemoteAddress + ' sends :') ;
        Memo1.Lines.Add(sRecr);
      end;
    end;
  end;
end;  
Primer je na tej povezavi http://delphi.about.com/od/networking/l/aa112602a.htm

Hvala

Odgovori