[es] - TCPclient i TCPserver

anon68680

Član broj: 68680
Poruke: 528
*.ptt.yu.

+14 Profil

^{31.10.2005. u 21:13 - pre 224 meseci}

radim neku client/server aplikaciju i po prvi put koristim ttcpclient i ttcpserver komponente. e sad, uspeo sam da posaljem string od clienta ka serveru ali ne mogu nikako obrnuto. ono probam standardno sendln ali iz nekog razloga ne radi. moze li neko da postuje par linija coda o tome?

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: TCPclient i TCPserver

^{31.10.2005. u 21:17 - pre 224 meseci}

Zasto ne koristis Indy komponente za komunikaciju? Besplatne su i mnogo su dobre, a idu sa Delphi-em

Play Store

Odgovor na temu

cacafaca
Nemanja Simovic
Beograd, Voždovac

Član broj: 49511
Poruke: 174
77.46.164.*

ICQ: 68999229

+18 Profil

Re: TCPclient i TCPserver

^{25.10.2009. u 09:32 - pre 176 meseci}

Citat:

krza: radim neku client/server aplikaciju i po prvi put koristim ttcpclient i ttcpserver komponente. e sad, uspeo sam da posaljem string od clienta ka serveru ali ne mogu nikako obrnuto. ono probam standardno sendln ali iz nekog razloga ne radi. moze li neko da postuje par linija coda o tome?

U čoveče, pa ovo je bio problem još 2005. Ja pokušavam neštoi slično da uradim. Hoću da jednostavno pročim neku stranu. Na primer ovako:

Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TcpClient1 do
  begin
    RemoteHost:='www.google.com';
    RemotePort:='80';
    Connect;
  end;
end;

procedure TForm1.TcpClient1Connect(Sender: TObject);
begin
  with TcpClient1 do
  begin
    Sendln('GET / HTTP/1.1');
    Sendln('Host: '+RemoteHost);
    Sendln('');
  end;
end;

procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
  var DataLen: Integer);
begin
  ShowMessage('Primio poruku');
  Memo1.Lines.Add(Buf);
end;

Ali pošaljem leo zahtev. Sve je uredno jer sam proveravao na svom web serveru. Piše u log fajli kod 200, što znači da je sve u redu što se tiče zahteva. Ali nikako da mi se pokrene okidač za događaj OnReceive, i samim tim ne primam ništa. U pitanju je Delphi 7, i čitao sam na netu da su i ostali imali probelma sa njim. Ostali koji su ih savetovali šta da rade uglavnom su preporučivali da koriste Indy komponente, jer je stara komponenta TClientSocket izbačena iz Delphi-ja. Ustvari nije izbačena, već se ne instalira nego mora ručno da se doda: Component > Install packages > Add > "c:\program files\borland\delphi\bin\dclsockets70.bpl". Pojaviće se u Internet tabu.

Odgovor na temu

tkaranovic
Tomislav Karanović
Beograd

Član broj: 220507
Poruke: 307

+18 Profil

Re: TCPclient i TCPserver

^{27.10.2009. u 14:18 - pre 176 meseci}

Koristio sam TClientSocket i TServerSocket za telnet, ftp, pop i smtp protokole i nije bilo problema. Koliko vidim, neće biti problema ni u d2010. TcpClient nisam koristio ali primer za TcpClient konektovanje se može naći pretragom po demo primerima.

TcpClient će da proradi kada se u gornjem kodu, u Button1Click, zameni: "Connect;", sa: "Active := true;" ili: "Open;".

Odgovor na temu

p.zivanovic
Predrag Zivanovic
Beograd

Član broj: 111825
Poruke: 29
93.87.249.*

Sajt: www.biznisoft.com

Profil

Re: TCPclient i TCPserver

^{31.10.2009. u 23:04 - pre 176 meseci}

Hm ... pa ovo bi trebalo da bude prosto:

Slanje stringa od klijenta ka serveru:

IdTCPClient2.IOHandler.WriteLn('saljem neki string ...');
....
.... cekam da mi server odgovori ....
s:=IdTCPClient2.IOHandler.ReadLn;
..................

Ja sam koristio sledeće rešenje kada jednostavno prikazujem poruke servera dok ne dobijem string #### koji označava kraj "konverzacije"

try
s:=IdTCPClient2.IOHandler.ReadLn;
while not (s='####') do
begin
Memo1.lines.add(s);
s:=IdTCPClient2.IOHandler.ReadLn;
end;
finally
IdTCPClient2.Disconnect;
idtcpclient2.free;
end;

Nadam se da sam bio od pomoći.

Odgovor na temu