| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Исходник звонилки [D7, WinXP]

Raider ©   (2005-01-26 15:59:00) 

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

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

---

HF-Trade   (2005-01-27 02:27:00) [1]

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;

---

KilkennyCat   (2005-01-26 22:55:00) [2]

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


http://www.ya.ru

---

ОН   (2005-01-26 21:33:00) [3]

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

---

Наверх