Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.051 c
1-1167224714
sutyt
2006-12-27 16:05
2007.02.18
Как из библиотеки передать списки (TList)?


2-1170328443
Extar
2007-02-01 14:14
2007.02.18
Диалог выбора каталога человеческий как организовать?


15-1169595372
IMHO
2007-01-24 02:36
2007.02.18
Опрос: где ваши программы хранят данные?


15-1169518575
Spider_NET
2007-01-23 05:16
2007.02.18
Конкурс


15-1169623683
cyborg
2007-01-24 10:28
2007.02.18
Кто нибудь сталкивался с такой ерундой с записью ДВД?