semoga membantu :
rasphone -d radnet : untuk dial
RASDIAL.EXE > C:\RASDIAL.TXT : untuk lihat status dial
rasphone -h radnet : untuk
hangup
Karena menggunakan perintah dos command, aku tambahi delay agar ada waktu
untuk tunggu
pernah := true;
while pernah do
{******************************************************
JALANKAN DIAL PHONE & DELAY 1 MENIT
******************************************************}
begin
WINEXEC('rasphone -d radnet',SW_SHOWNORMAL);
Jakhir := FormatDateTime('hhmmss',now + STRTOTIME('00:01:00'));
while jakhir > FormatDateTime('hhmmss',now) do
begin
end;
{******************************************************
PERIKSA STATUS DIAL PHONE & DELAY 20 DETIK
******************************************************}
WINEXEC('RASDIAL.EXE > C:\RASDIAL.TXT',SW_SHOWNORMAL);
Jakhir := FormatDateTime('hhmmss',now + STRTOTIME('00:00:20'));
while jakhir > FormatDateTime('hhmmss',now) do
begin
end;
if FileExists('C:\RASDIAL.TXT') then
begin
AssignFile(File2R,'C:\RASDIAL.TXT');
Reset(File2R);
Readln(File2R,Ch2);
if ('No connections' <> Ch2 ) then pernah := false;
CloseFile(File2R);
end;
ulang:= ulang + 1;
if ulang = 5 then pernah := false;
end;
.............PROSES.....................
{******************************************************
HANGUP DIAL PHONE
******************************************************}
WINEXEC('rasphone -h radnet',SW_SHOWNORMAL);
> -----Original Message-----
> From: Ikka Vertika (DTC) [SMTP:[EMAIL PROTECTED]]
> Sent: Tuesday, January 28, 2003 8:08 AM
> To: Delphindo
> Subject: [Delphindo] Perintah / Component u. Dial & Hangup Internet
> Connection
>
> Rekan2...
> Numpang tanya...
>
> Bagaimana caranya (statement perintah Delphi / WinApi) untuk melakukan
> autodial Internet Connection (menampilkan dialog "Dial
> Internet Connection") dan untuk melakukan HANGUP koneksi internet yang
> sudah ada.
>
> Saya ingin buat program, anggap saja ada 2 button, button DIAL INTERNET
> CONNECTION dan button HANGUP INTERNET CONNECTION.
>
> Saya sudah lihat contoh2 demo di delphi, tetapi tidak / belum menemukan
> yang bisa melakukan HANGUP, meskipun untuk DIALED nya masih
> bisa dilakukan oleh komponent internetnya (misalnya komponent FastNet &
> Indy). Atau udah ada komponentnya ?
>
> Terima kasih sebelumnya...
>
> Salam,
> Ikka
>
>
>
>
>
>
>
>
> Yahoo! Groups Sponsor
> ADVERTISEMENT
>
> <http://rd.yahoo.com/M=233351.2876045.4223503.2848452/D=egroupweb/S=170511
> 5362:HM/A=1341247/R=0/*https://www.gotomypc.com/tr/yh/grp/300_mapG/g22lp?T
> arget=mm/g22lp.tmpl>
>
> <http://us.adserver.yahoo.com/l?M=233351.2876045.4223503.2848452/D=egroupm
> ail/S=:HM/A=1341247/rand=652692053>
>
> Berlangganan: [EMAIL PROTECTED]
> Stop Berlangganan: [EMAIL PROTECTED]
> Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
>
> Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service
> <http://docs.yahoo.com/info/terms/>.
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
