با سلام خدمت دوستان
من تو برنامم از IdTCPClient1 استفاده کرده ام و برای اینکه بتونم با اون سند و رسیو داشته باشم از دستور زیر استقاده کردم
type
TReadingThread = class(TThread)
protected
FConn: TIdTCPConnection;
procedure Execute; override;
public
constructor Create(ACon: TIdTCPConnection); reintroduce;
end;
.
.
.
var
Form1: TForm1;
ReadingThread : TReadingThread;
implementation
{$R *.dfm}
constructor TReadingThread.Create(ACon: TIdTCPConnection);
begin
FConn := ACon;
inherited Create(False);
end;
procedure TReadingThread.Execute;
var s : string;
begin
while not Terminated do
begin
//FConn.ReadFromStack(True, 1000, False);
//if FConn.InputBuffer.Size > 0 then
//begin
s := FConn.CurrentReadBuffer;
if Length(S) > 0 then
Form1.Memo1.Lines.Add(s);
//end;
end;
end;
حالا برای ارسال پیام هم از دستور IdTCPClient.Write(Text); استفاده میکنم ولی برنامم خطای عنوان شده را میده و کلا هنگ میشه
دوستان کسی میتونه راهنمائیم کنه؟
پاسخ با نقل قول
نوشته شده توسط Mask
