hallo @ all
ich habe mir die magras komponente geladen und nu den folgenden quelltext geshcrieben( kopiert) usw. nu habe ich das problem, dass in dem dfü netzwerk besteht die verbindung mit dem namen "easysurfer". ohne was zu ändern, findet er manchmal diese verbindung, manchmal net, sagt also bei MagRasNumEntryRec manchmal 0 und manchmal mehr als 0! wo is der fehelr, vllt sowas wien reset vorher?
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
var i,b:integer;
check:boolean;
text:string;
begin
form1.Visible:=false;
magrascon1.GetDeviceList;
if magrascon1.DeviceNameList.Count>=0 then
for i:=0 to magrascon1.DeviceNameList.count-1 do
listbox1.Items.Add(magrascon1.DeviceNameList.Strings[i]);
check:=false;
b:=MagRasGetEntryList ('') ;
if (MagRasNumEntryRec > 0) and (b=0) then
for i := 0 to MagRasNumEntryRec-1 do begin
text:=MagRasEntryRecs [I].EntryName;
if text='Easysurfer' then begin
check:=true;
end;
end;
if check=true then begin
timer1.Enabled:=true;
end;
end;