доброе время суток, коллеги!
есть приложение, которое должно переодически проверять статус соединения и, при необходимости, восстанавливать его.
взял из примера код
procedure TForm1.Button2Click(Sender: TObject);
var
Fp : LongBool;
R : Integer;
C : Array[0..100] of Char;
DialParams : TRasDialParams;
AEntryDial : String;
begin
If ListBox1.ItemIndex<0 Then Exit;
RasHangUp(hRas);
AEntryDial:=ListBox1.Items.Strings[ListBox1.ItemIndex];
FillChar(DialParams, SizeOf(TRasDialParams), 0);
With DialParams Do
Begin
dwSize:=Sizeof(TRasDialParams);
StrPCopy(szEntryName, AEntryDial);
End;
R:=RasGetEntryDialParams(Nil, DialParams, Fp);
If R=0 Then
Begin
Application.ProcessMessages;
R:=RasDial(Nil, Nil, DialParams, 0, @RasCallback, hRAS);
If R<>0 Then
Begin
RasGetErrorString(R,C,100);
MessageBox(0,C,'Îøèáêà!',MB_OK);
Exit;
End;
End;
End;по первому разу - все нормально.
в случае чего, соединение убивается, но... повторно не восстанавливаетсяЮ, выдает ошибку: "подключение было прервано".
? что сделать, чтобы очищало память от убранного подключения?