Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.035 c