Исходник звонилки

← →
Raider © (2005-01-26 15:59) [0]

Здраствуйте, мне срочно нужен исходник какой нибудь звонилки,
облазил все поисковики ни чё не нашёл, плиз дайте линк где можно найти чё нить по этому поводу, или если у кого есть готовый исходник мыльте мне сюда -> raider_@list.ru

Заранее благодарен.

← →
ОН (2005-01-26 21:33) [1]

http://delphibase.endimus.ru/?action=viewtopic&topic=netconnect

← →
KilkennyCat © (2005-01-26 22:55) [2]

> плиз дайте линк где можно найти чё нить по этому поводу

http://www.ya.ru

RasAPI

Файло - Rasunit.pas, RasUnit.dcu

Uses RasUnit

TMyDialParam = Record
AMsg:Integer;
AState:TRasConnState;
AError:Integer;

Var
MyDialParam:TMyDialParam;
hRas: ThRASConn;

Procedure ComboBox1DropDown(Sender: TObject);
var
BuffSize : Integer;
Entries : Integer;
Entry : Array[1..MaxEntries] of TRasEntryName;
Result_ : Integer;
AllEntries : TStrings;
Begin
AllEntries:=TStringList.Create;
ComboBox1.Clear;
Entry[1].dwSize:=SizeOf(TRasEntryName);
BuffSize:=SizeOf(TRasEntryName)*MaxEntries;
Result_:=RasEnumEntries(nil, nil, @Entry[1], BuffSize, Entries);
If (Result_=0) and (Entries>0) then
Begin
For X:=1 To Entries Do
Begin
ComboBox1.Items.Add(Entry[X].szEntryName);
AllEntries.Add(Entry[X].szEntryName);
End;
End;
AllEntries.Free;
end;

Procedure Connect;
Var
Fp : LongBool;
R : Integer;
DialParams : TRasDialParams;
AEntryDial : String;
Begin
RasHangUp(hRas);

AEntryDial:=ComboBox1.Items[NumberConnect];//NumberConnect номер соединения соответствует выбранному Items из ComboBox1

FillChar(DialParams, SizeOf(TRasDialParams), 0);
With DialParams Do
Begin
dwSize:=Sizeof(TRasDialParams);
StrPCopy(szEntryName, AEntryDial);
End;
R:=RasGetEntryDialParams(Nil, DialParams, Fp);
R:=RasDial(Nil, Nil, DialParams, 0, @RasCallback, hRAS);
End;

Procedure DisconnectClick(Sender: TObject);
Var
cmd, par, fil, dir: PChar;
Begin
cmd := "open";
fil := "rasdial.exe";
par := PChar(" /DISCONNECT");
dir := "C:";
ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
End;

Исходник звонилки Найти похожие ветки