Entwickler-Ecke

Internet / Netzwerk - DFÜ-Einträge?


TheNeon - Di 20.05.03 12:36
Titel: DFÜ-Einträge?
wie kann ich checken, ob eine DFÜ-Verbindung angelegt ist?!?

THX :wink2:


cirrus - So 25.05.03 00:52
So habe grad mal was gebastelt mir war langweilig.

Als erstes musst du den RAS-API-Header in dein programm per uses einbinden, du findest ihn Hier [http://www.delphi-treff.de/inc/url.php4?tab=compsdown_links&id=75&dl=1]

Als nächstes kannst du dann meine hübsche Funktion hier benutzen:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
 
function RASConnectionExists(Conn_Name: string): boolean;
var
 Ras_Entries:array[1..10] of trasentryname;
 RasEntriesSize: dword;
 num_entries,ret: dword;
 i:integer;
begin
 num_entries:=0;
 rasEntriesSize:=sizeof(trasentryname);
 ras_Entries[1].dwSize:=rasEntriesSize;
 ret:=rasenumentries(nil,nil,@ras_entries,integer(RasEntriesSize),integer(num_entries));

 result:=false;
 for i:=1 to num_entries do begin
    if lowercase(string(ras_Entries[i].szEntryName))=lowercase(Conn_Name) then result:=True;
 end;
end;


Dann z.b. mit


Delphi-Quelltext 
1:
 
if RASConnectionExists('T-DSL') then showmessage('T-DSL DFÜ Verbindung ist vorhanden.');

benutzen.

Müsste eigentlich funktionieren.

gruss,
cirrus


TheNeon - So 25.05.03 02:04
@cirrus

hey,danke ........ allerdings bekomme ich eine Fehlermeldung ...

Delphi-Quelltext 
1:
 
   ret:=rasenumentries(nil,nil,@ras_entries,integer(RasEntriesSize),integer(num_entries));    //<- hier !


.... und zwar:
Inkompatible Typen: 'Array' und 'TRASEntryNameA'

sonst scheint es zu klappen :D :wave:


TheNeon - So 25.05.03 02:42
lol ........... es muss lauten:

Delphi-Quelltext 
1:
 
ret:=rasenumentries(nil,nil,@ras_entries[1],integer(RasEntriesSize),integer(num_entries));


DANKE DANKE DANKE DANKE DANKE :wink2:


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!