Проблема с отправкой текста через tclientsocket (delphi) v2.0

[dyonysos]

project.zip

[dyonysos]

project.zip

[SERG1980]

Увы не могу открыть ваш проект. моя дэлфя 2007 ругается

[Пепел Феникса]

попробуйте юзать потоки(TStream...точнее потомки например TMemoryStream или TStringStream(TStringsStream не помню как верно...не юзаю)) для отправки/приема
то есть считывать/отправлять как поток, а потом уже оттуда строки считать.

[dyonysos]

с TStringStream тоже проблема есть:

// передача стрима
procedure TForm1.RunComm;
var
  sst:tstringstream;
begin
...
  sst:=TStringStream.Create('');
  memo1.lines.SaveToStream(sst);
  serversocket1.Active:=true;
  serversocket1.Socket.SendStream(sst);
end;

а как получить этот самый стрим в клиентской программе?
пробовал Memo1.Text:=clientsocket1.Socket.Re ceiveText; при событий "on read" но не работает.

[Пепел Феникса]

procedure TForm1.ServerSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var s:ANSIString;
begin
 SetLength(s,Socket.ReceiveLength);
 Socket.ReceiveBuf(s[1],Length(s));
 Memo1.Lines.Add(s);
end;

а если так?
и отправляем тогда:

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
var M:TMemoryStream;
     s:ANSIString;
begin
 M:=TMemoryStream.Create;
 s:=Memo1.Lines.Text;
 M.WriteBuffer(s[1],Length(s));
 M.Seek(0,0);
 Socket.SendStream(M);
 M.Free;
end;

[dyonysos]

Работает!Спасибо огромное!
только вот клиент после отправления выдает ошибку когда освобождается стрим( M.Free; ):



с чего бы это?

[Пепел Феникса]

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket)
var s:ANSIString;
begin
 s:=Memo1.Lines.Text;
 Socket.SendBuf(s[1],Length(s));
end;

а если так?

[dyonysos]

ура!
большое вам спасибо за помощь!