Dial-up Connection in Delphi

[Milad2002b]

لطفا" منو راهنمایی کنید چطوری میتونم یه برنامه بنویسم که مثل دیال آپ کانکشن یوزرنیم و پسورد وشماره تلفن بگیره و به اینترنت وصل بشه.
با تشکر :flower:

[farhad_f]

سلام
با استفاده از کامپوننت TPowerSock در پالت Internet و با متد Connect به راحتی میتونی این کار رو انجام بدی البته این کامپوننت فکر کنم از دلفی 4 به بالا باشه :roll:

[m_reza]

همچنین کامپوننتی که شما گفتید در این پالت وجود ندارد (In Delphi 7). البته من در پالت های دیگه هم دیدم اما چیزی با این اسم پیدا نکردم . :(

[Milad2002b]

من هم گشتم نبود :|

[saeed_82]

با استفاده از کامپوننت TPowerSock در پالت Internet

عزیز من کامپوننتی که شما گفتی جزو کامپوننتهای استاندارد دلفی نیست

[_alish_]

بیا حالش و ببر

uses 

  WinInet; 



// وصل به اینترنت

procedure TForm1.Button1Click(Sender: TObject); 

var 

  dwConnectionTypes: DWORD; 

begin 

  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + 

    INTERNET_CONNECTION_PROXY; 

  if not InternetGetConnectedState(@dwConnectionTypes, 0) then 

    // not connected 

    if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLIN  E or 

      INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then 

    begin 

      // error 

    end; 

end; 





// قطع اینترنت

procedure TForm1.Button2Click(Sender: TObject); 

var 

  dwConnectionTypes: DWORD; 

begin 

  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + 

    INTERNET_CONNECTION_PROXY; 

  if InternetGetConnectedState(@dwConnectionTypes, 0) then 

    // connected 

    InternetAutodialHangup(0); 

end; 

فکر کنم با ShellExecute فایل rasdial.exeو بصورت Open هم بتونی

[Milad2002b]

این از کانکشن های ساخته شده استفاده میکنه ...
من میخوام Username,Pasword و شماره تلفن رو از داخل برنامه وارد کنم :?:

[_alish_]

خوب باید از کانکشنهای تعریف شده استفاده کنی و به آن UserName , Pass بدی دیگه. با ShellExecute استفاده کن

uses shellapi; 

{$R *.dfm} 



procedure TForm1.Button1Click(Sender: TObject); 

var  

  cmd, par, fil, dir: PChar; 

begin 

  

  // rasdial.exe اتصال بوسیله  

  cmd := 'open'; 

  fil := 'rasdial.exe'; 

  par := PChar(edtEntry.Text + ' ' + edtUser.Text + ' ' + edtPass.Text); 

  dir := 'C:'; 

  ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE); 

end; 





procedure TForm1.Button2Click(Sender: TObject); 

var  

  cmd, par, fil, dir: PChar; 

begin 

  //قطع 

   cmd := 'open'; 

  fil := 'rasdial.exe'; 

  par := PChar(edtEntry.Text + ' /DISCONNECT'); 

  dir := 'C:'; 

  ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE); 

end; 

[ali_sorouri2005]

سلام
میشه توضیح بدیdir ‌ cmd par fil هر کدوم چه کاری انجام میده؟؟؟؟؟
با تشکر

[nima_jafari]

سلام حالش رو بردم ولی درموردش توضیح دهید.

[Hamid_PaK]

تمام این متغییرها cmd, par, fil, dir از نوع اشاره گر هستند و هیچ عمل خاصی رو انجام نمی دهند فقط مقدار رو به روال انتقال می دهند ...
این معادل همان کد می باشد ...

ShellExecute(

  Handle,

  'open',

  'rasdial.exe',

  pChar(edtEntry.Text + ' ' + edtUser.Text + ' ' + edtPass.Text),

  'C:',

  SW_SHOWMINNOACTIVE);

یا حق !!!