Ну тут 2 варианта:
1) Подключение нужно проводить еще до момента отправки (не рекомендуется).
| Код |
procedure TForm2.FormShow(Sender: TObject);
begin
ClientSocket1.Host:=InputBox('Адрес', 'Введите имя или IP-адрес компьютера ', '127.0.0.1');
ClientSocket1.Open;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
ClientSocket1.Socket.SendText(Memo1.Lines[i]);
end;
procedure TForm2.FormDestroy(Sender: TObject);
begin
ClientSocket1.Close;
end;
|
2) Отправлять нужно после соединения, а не во время (рекомендуется  )
| Код | procedure TForm2.Button1Click(Sender: TObject);
begin
ClientSocket1.Host:=InputBox('Адрес', 'Введите имя или IP-адрес компьютера ', '127.0.0.1');
ClientSocket1.Open;
end;
procedure TForm2.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
var
i: integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
ClientSocket1.Socket.SendText(Memo1.Lines[i]);
ClientSocket1.Close;
end; |
|
