Хай!

Народ, а как можно сделать, чтобы перед отключением сокета послать текст (может неправильно выразился)

вот:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if ClientSocket1.Active then
begin

ClientSocket1.Socket.SendText(edit4.Text); //если так вставить, то ошибку выдает 10053
//как дождаться окончания передачи ?


ClientSocket1.Active:=false;
BitBtn1.Kind:=bkOk;
BitBtn1.Caption:='Connect';
end

else
begin
ClientSocket1.Address:=edit1.Text;
ClientSocket1.Port:=StrToInt(edit2.Text);
ClientSocket1.Active:=true;
BitBtn1.Kind:=bkAbort;
BitBtn1.Caption:='Disconnect';
end;
end;

благодарю.

Во первых нужно соединится

ClientSocket1.host:='127.0.0.1';
ClientSocket1.port:=139;
ClientSocket1.Open;


далее в событии OnConnect

if Socket.Connected
then ClientSocket1.Socket.SendText(edit4.Text);
ClientSocket1.Close;

у меня всё соединено ....мне нужно чтоб когда кнопку disconnect нажимаешь, в данном случае bibtn1, он сначала выплёвывает серверу мессагу, а потом отключается

Всёравно на всякий случай нужно проверить коннект.

if ClientSocket1.Socket.Connected then
if ClientSocket1.Socket.SendText(edit4.Text) = -1
then ShowMessage('Еррор!!!!!');

Ошибка 10053 означает именно то что соединение было потерянно, до того как ты отправил пакет.

Это сообщение отредактировал(а) RAdmin - 28.6.2005, 08:02

неробит .... а как определить, что текст передался
if ClientSocket1.Socket.SendText(edit4.Text) = -1 then ..... - это оно ?

Да, если результат -1 то ошибка, и текст не передан.