برای کار با tcpclient دستورات زیر را وارد میکنیم
procedure TForm1.btnSendClick(Sender: TObject);
var
I: Integer;
begin
TcpClient1.RemoteHost := edtRemoteHost.Text;
TcpClient1.RemotePort := edtRemotePort.Text;
if not TcpClient1.Connected then
TcpClient1.Connect ;
i:= TcpClient1.Sendln(Trim(statement.Text));
TcpClient1.Receiveln;
end;
procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
var s:string;
begin
SetLength (s, DataLen);
move (Buf ^, s [1], DataLen);
s:= StringReplace (s, #$0,#$13, [rfReplaceAll]);
memRecv.Lines. Add( s);
TcpClient1.Active:=False;
end;
همچنین از این دستور برای ارسال رشته به صورت استریم
Function StringToStream(const AString: string): TStream;
begin
Result := TStringStream.Create(AString);
end;
--------------------------
procedure TForm1.btnSendClick(Sender: TObject);
begin
TcpClient1.RemoteHost :='192.168.1.168';
TcpClient1.RemotePort :='23768';
if not TcpClient1.Connected then
TcpClient1.Connect ;
TcpClient1.SendStream( StringToStream('readl'));
TcpClient1.Receiveln;
end;