BorlandTalk.com

[Guest]

Hello,

How to get data from main thread using TIdSync class? Sample I found does
not return any information back. And it doesn't looks thread safe to add
ReturnInfo variable and read information from it after Write method called.

type
TLogSync = class(TIdSync)

ReturnInfo: String;
private
fDirection: String;
fLine: String;
fIPAddress: String;
procedure DoSynchronize; override;
public
procedure Write(const ADirection, ALine, AIPAddress:
String);
end;


procedure TLogSync.DoSynchronize;
begin
// write fDirection, fLine, and fIPAddress to TRichEdit as
needed...

ReturnInfo:=.
end;


procedure TLogSync.Write(const ADirection, ALine, AIPAddress:
String);
begin
fDirection := ADirection;
fLine := ALine;
fIPAddress := AIPAddress;
Synchronize;
end;

[Remy Lebeau (TeamB)]

<column.column (AT) gmail (DOT) com> wrote in message
news:463b462d (AT) newsgroups (DOT) borland.com...

[Guest]

I know how to get ReturnInfo from main form - I use procedure pointer that
returns value to ReturnInfo.

procedure TLogSync.DoSynchronize;
begin
if assigned (ProceedRequest) then
TProceedRequest(ProceedRequest)(ReturnInfo,...);
end;


Is it good do like this:

procedure TPOS_TCP.AserverSocketExecute(AContext: TIdContext);
var
mystring:string
begin
LogSync:=TLogSync.Create;
LogSync.ProceedRequest:=ProceedRequestThr;
LogSync.write(....);

mystring:= LogSync.ReturnInfo; //I don't like this
....
LogSync.free;
end;

[Guest]

[Remy Lebeau (TeamB)]

<column.column (AT) gmail (DOT) com> wrote in message
news:463c34cb$1 (AT) newsgroups (DOT) borland.com...

[Remy Lebeau (TeamB)]

<column.column (AT) gmail (DOT) com> wrote in message
news:463c8969 (AT) newsgroups (DOT) borland.com...