Текущий архив: 2007.02.18;
Скачать: CL | DM;
Вниз
TIdTcpClient Найти похожие ветки
← →
kirik (2006-09-11 18:24) [0]Делаю вот так:
procedure TForm1.Button1Click(Sender: TObject);
var Dat: TOrganization; So: word;
begin
if not (tsClient.Connected) then
tsClient.Connect;
listbox1.items.add("connected");
tsClient.WaitFor("#Welcome");
tsClient.WaitFor("#Command");
tsClient.WriteLn("GET 1");
So := Sizeof(Dat);
tsClient.ReadBuffer(Dat, so);
listbox1.items.add(Dat.Name);
tsClient.WriteLn("GET x");
tsClient.Disconnect;
if not (tsClient.Connected) then listbox1.items.add("disconnected");
end;
Первый раз получает данные, отваливается. Нажимаешь кнопку ещё раз - приложение виснет. Что бы это могло быть?
← →
Dmitrij_K (2006-09-11 18:40) [1]Отладчик тебе на что?
Страницы: 1 вся ветка
Текущий архив: 2007.02.18;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.073 c
