Есть некая процедура RasCallback [D7]
Nexel © (2004-12-14 14:32:00)
Есть некая процедура 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:00) [1]
Нашел я в чем причина, дело в том, что процедура BitBtn1Click
открывает форму с отображением процесса обработки данных...
отключив ее появление все заработало... но вопрос встречный... как
ее открыть чтобы приложение не повеслиось?
Наверх 
ЧАТ |
Орешник |
|
