Nach langem suchen habe ich nun etwas gefunden um die Verbindungen anzuzeigen. Auf
dsdt.info gibts auch ein Code zum Verbinden aber leider geht das nur mit Modem. Wie kann ich nun die Verbindung auch mit ISDN ermöglichen?
Delphi-Quellcode:
uses
ras; //eigen ras erstellt für diese Funktion
procedure TForm1.FormCreate(Sender: TObject);
var
RasEntryName: array[1..20] of TRasEntryName;
i, x, BufSize, Entries: DWord;
Connection:THRasConn;
begin
RasEntryName[1].dwSize := SizeOf(RasEntryName[1]);
BufSize := SizeOf(RasEntryName);
x := RasEnumEntries(nil, nil,
@RasEntryName, BufSize, Entries);
for i := 1 to Entries do
begin
if ( i < 21) and (RasEntryName[i].szEntryName[0] <> #0) then
ListBox1.Items.Add(StrPas(RasEntryName[i].szEntryName));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ErrorCode: Integer;
begin
Con := 0;
ErrorCode := ERROR_SUCCESS;
if DialDFUE(ListBox1.Items[0], ErrorCode, Con) then ShowMessage('Verbindung'); //zum Test 1. Eintrag
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
InternetHangUp(Con, 0);
end;
Delphi-Quellcode:
unit Ras;
interface
uses
Windows;
const
MaxEntryName = 256;
raslib = '
rasapi32.dll';
type
PHRasConn = ^THRasConn;
THRasConn = THandle;
PRasEntryName = ^TRasEntryName;
TRasEntryName =
record
dwSize: DWORD;
szEntryName:
packed array[0..MaxEntryName]
of AnsiChar;
dwFlags: DWORD;
szPhonebookPath:
packed array[0..MAX_PATH]
of AnsiChar;
end;
function RasEnumEntries(reserved: PChar; lpszPhonebook: PChar; lprasentryname: PRasEntryName;
var lpcb: DWORD;
var lpcEntries: DWORD): DWORD;
stdcall;
implementation
function RasEnumEntries;
external raslib
name '
RasEnumEntriesA';
end.
Weist jemand wie ich eine Verbinding auch über ISDN einwählen kann?