Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как набрать номер модемом

Автор: Олег Кулабухов

- Правда, что внешние модемы устойчивее внутренних?
- Конечно! Ведь у внешних - четыре ножки и низко расположенный центр тяжести!


 var
   hCommFile: THandle;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   PhoneNumber: string;
   CommPort: string;
   NumberWritten: LongInt;
 begin
   PhoneNumber := 'ATDT 1-555-555-1212' + #13 + #10;
   CommPort := 'COM2';
   {Open the comm port}
   hCommFile := CreateFile(PChar(CommPort),
     GENERIC_WRITE,
     0,
     nil,
     OPEN_EXISTING,
     FILE_ATTRIBUTE_NORMAL,
     0);
   if hCommFile = INVALID_HANDLE_VALUE then
   begin
     ShowMessage('Unable to open ' + CommPort);
     exit;
   end;
 
   {Dial the phone}
   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
   {Close the port}
   CloseHandle(hCommFile);
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS