BorlandTalk.com

Jangeau · Guest

I am spinning my wheels. I would like to send a request and receive a
response.It appears the request gets sent then nothing happens.
Suggestions would be greatly appreciated. Jangeau

FWSocket gets created onFormShow and destroyed onFormClose

procedure TfrmMain.MsgClick(Sender: TObject);
begin
FWSocket.OnSessionConnected := FWSocketSessionConnected;
FWSocket.OnDataAvailable := FWSocketDataAvailable;
FWSocket.Addr:= edtIPAddress.text;
FWSocket.Port:= edtPort.text;
FWSocket.Proto:= 'tcp';
FWSocket.Connect;
end;

procedure TfrmMain.FWSocketSessionConnected(Sender: TObject; Error:
Word);
begin
FWSocket.SendStr(memRequest.text);
end;

procedure TfrmMain.FWSocketDataAvailable(Sender: TObject; Error:
Word);
begin
//I am not getting a response from this
memResponse.text:= FWSocket.ReceiveStr;
end;