Witam
Chcialem napisac sobie serwer proxy ale mam z tym problem, moj kod wyglada tak:
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Edit1.Text:=Socket.ReceiveText;
memo1.Lines.Add(Edit1.Text);
ServerSocket1.Socket.SendText(Edit1.Text);
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Edit2.Text:=Socket.ReceiveText;
memo2.Lines.Add(Edit2.Text);
ClientSocket1.Socket.SendText(Edit2.Text);
end;
ale za kazdym razem dostaje blad o asynchronizacji... nie wazne z jakiego portu korzystam...
Przegladalem forum i bylo dosc duzo opisane o tserversocket i tclientsocket ale tylko jako 1 element w 1 aplikacji a ja w sumie potrzebuje te 2 elementy w 1 aplikacji...