Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

Есть некая процедура RasCallback   Найти похожие ветки 

 
Nexel   (2004-12-14 14:32) [0]

Есть некая процедура Procedure RasCallback(msg: Integer; state: TRasConnState; error: Integer); stdcall; она вызывает состояние текущего dial-up соединения так вот когда я законнектился и пытаюсь вызвать процедуру типа TfmSend.Button3Click(Sender: TObject); то прога вешается насмерть вот процедурка сама вся

Procedure RasCallback(msg: Integer; state: TRasConnState;
 error: Integer); stdcall;
Begin
 MyDialParam.AMsg:=msg;
 MyDialParam.AState:=state;
 MyDialParam.AError:=error;
 If error<>0 Then
 Begin
   Try
     fmSend.ListBox1.Items.Add(".......");
     fmSend.Button3Click(fmSend.Button3);
   Except
   End;
 End
 Else
  If GetStatusString(MyDialParam.AState,MyDialParam.AError)="....." Then
  Begin
     fmSend.ListBox1.Items.Add(GetStatusString(MyDialParam.AState,MyDialParam.AError));
     //ТУТ ОНА И ВЕШАЕТСЯ
     fmSend.BitBtn1Click(fmSend.BitBtn1);
  End;

End;


 
Nexel   (2004-12-14 14:47) [1]

Нашел я в чем причина, дело в том, что процедура BitBtn1Click открывает форму с отображением процесса обработки данных... отключив ее появление все заработало... но вопрос встречный... как ее открыть чтобы приложение не повеслиось?



Страницы: 1 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.039 c
4-1103178046
Dr. Genius
2004-12-16 09:20
2005.02.06
Инфо о модеме


3-1104828890
yaric
2005-01-04 11:54
2005.02.06
Как проверить что две таблицы одинаковы


14-1106144088
able
2005-01-19 17:14
2005.02.06
Подкскажите... насчет стали


1-1106547631
Alien_D
2005-01-24 09:20
2005.02.06
Алгоритм рекурсивного спуска по дереву...


1-1106418295
MadGhost
2005-01-22 21:24
2005.02.06
Как динамически создать на форме TLabel TEdit и другие компоненты