Tilkobling til et TCP /IP-server fra en Delphi klient For å gjøre en Delphi Søknad som en TCP /IP-klient, kan vi bruke TClientSocket Component.I overfor et problem når jeg prøver å koble til en TCP /IP-server (en annen datamaskin) og sender data til den maskinen og få data back.In forms OnShow hendelse, setter jeg adresse og port egenskapene til TclientSocket komponent til TCP /IP-serverens IP-adresse og port antall og sette Aktiv til sann. Etter at jeg prøvde å sende data i samme hendelse. Jeg var ikke i stand til å sende data. Jeg fant ut at Aktiv eiendom som Sann (som betyr tilkoblet) .Så jeg trodde problemet kunne være med skjemaets OnShow hendelse; Deretter satte jeg den samme koden (innstilling av IP-adresse og portnummer og aktiv for å true) i FormCreate /onclick hendelse; Jeg var ikke i stand til å komme ut av det problem.The ting er at jeg fikk prøve å koble til TCP /IP-server og prøver å sende data på samme tid. Dette ser ikke ut til å fungere ordentlig. Etter at jeg henviste Delphi Hjelp nøye og fikk løsningen Løsningen jeg fant er:.
Først må vi sette IP-adresse /portnummer i TCP /IP-server i Tclientsocket komponentegenskapene i hoved skjemaets onCreate arrangement av prosjektet og sette Aktiv til sann. Etter det kan vi bruke Åpne og lukke metoder for TclientSocket komponent for å koble til /koble fra TCP /IP server.If vi ønsker å sende data til en TCP /IP server ofte fra forskjellige former i et prosjekt, kan vi bruke en DataModule og sette en TclientSocket komponent i den og bruke den overalt i hele prosjektet ved å inkludere det datamodule i hele enheten files.And en ting til, i ClientSocketRead tilfelle vi trenger å sette noen tidsforsinkelse mens du leser data tilbake fra TCP /IP server. Denne tidsforsinkelsen kan være noen millisekunder og er avhengig av nettverkstrafikken siden vi ikke kan lese alle data som sendes fra TCP /IP-server på en gang, selv om du holder buffer en stor en. Så du må kanskje vente på noen millisekunder mellom reads.I brukte korrespondanse av TclientSocket som ctNonBlocking; Vi kan også bruke ctBlocking som korrespondanse; men i så fall TCP /IP server skal være en gjenget one.Even om det synes å være en enkel ting, jeg ville bare dele med alle våre venner i Delphi.Enjoy !!! Thanx.Magesh.