Samanalevi Netkafe Anasayfa

Modemle Telefon No Çevirme

Sosyal Ağ Paylaşımı :                                

	Ekleyen : Ayhans Zaman : 14 Mayıs 2005 Okunma : 1214 Yorumlar : 0 - Yorumları Oku - Yorum Yaz

Verilen iletişim port'unu kullanarak standart dosya açma yöntemi ile O porta bilgi göndermek.
Yani verilen telefon numarasını CreateFile() winapi'sini kullanarak çevirme.

Örnek:

var
hCommFile : THandle;

procedure TForm1.Button1Click(Sender: TObject);
var
PhoneNumber : string;
CommPort : string;
NumberWritten : LongInt;
begin
PhoneNumber := 'ATDT 0392 2277125' + #13 + #10;
CommPort := 'COM2';
{portu aç}
hCommFile := CreateFile(PChar(CommPort),
                          GENERIC_WRITE,
                          0,
                          nil,
                          OPEN_EXISTING,
                          FILE_ATTRIBUTE_NORMAL,
                          0);
if hCommFile=INVALID_HANDLE_VALUE then
begin
    ShowMessage(CommPort + ' Açılamadı');
    exit;
end;

{numarayı çevir}
NumberWritten:=0;
if WriteFile(hCommFile,
               PChar(PhoneNumber)^,
               Length(PhoneNumber),
               NumberWritten,
              nil) = false then begin
    ShowMessage('Unable to write to ' + CommPort);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{portu kapat}
CloseHandle(hCommFile);
end;

Konuya Ait Yorumlar

Şu an yorum yazılmamış!..

İlginizi Çekebilecek Konular
Başlık	Ekleyen
Algoritmalar	seasparrow
Programdan Web Adresini İstenilen Özelliklerde Açmak	seasparrow
Alt Klasörlerde Dosya Aratıp Listeletmek	seasparrow
Cd Sürücünün Seri Nosunu Bulmak	seasparrow
Sqlde Aritmetiksel İfade Ve Fonksiyonlar	beykozlu
Karakter Düzenleme	seasparrow
İlk Harf Büyük Diğerleri Küçük	seasparrow
Lıstbox Da Tüm Elemanlar Nasıl Seçilir.	beykozlu
Verıtabanına Daha Hızlı Erışım.	beykozlu
Hareketli İmleç Kullanma	seasparrow
Doğum Günü Yaşı Nasıl Hesaplanır	beykozlu
Windows Gezginini İstediğiniz Bir Klasörle Açma	seasparrow
Text Kutusundaki Değişiklikleri Farketme	beykozlu
Programınızın Alt+f4 Tuşuyla Kapanmaması İçin	seasparrow
Sabit Değerler	seasparrow
Harici Disk Ve Usb Bellek Engeli	admin
Delphi İle Ip Bulma	seasparrow
Buz Efektli Yazı	admin
Belgeler Menüsüne Dosya Ekleme/temizleme	seasparrow
Asp De Beni Hatırla	seasparrow