Скачать: CL | DM;

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

← →
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

---

← →
HF-Trade ©   (2005-01-27 02:27) [3]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c