Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Май 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 24.05.03 09:04

Лучшее из нашего FAQ   |x|
Как набрать номер с помощью модема в Win32?
Используйте функцию Windows API CreateFile() чтобы получить дескриптор порта, и стандартные функции ввода-вывода для связи с полученным портом.
Пример:

     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 hCo!
mmFile=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;


Источник: Дельфи. Вокруг да около.


»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • Поиск записей
    Метод locate выполняется только для записей на английском языке. Как сделать так, чтобы он правильно работал?
  • Взаимодействие с потоками
    Здравствуйте! Возможно не удачно мной названа тема. А проблема такова: в приложении есть несколько TStringGrid-ов с ...
  • Delete не любит длинное условие
    при создании процедуры через IBQuery парсер выдает ошибку bad parameter number на строку DELETE, а SELECT проходит ...
  • Добавление юзера к файлу
    Как добавить юзера к файлу, и установить атрибуты доступа к файлу для этого юзера?()
  • DBGrid
    Здравствуйте Уважаемые мастера! Есть таблица типов счетчиков, где указан тип счетчика, значность и т.д. и таблица ...
  • Неузнаваемый принтер
    Такой случай: после установки Окон-2000 (легальной) принтер из моего проекта печатает одну страницу, молчит секунд 5, ...
  • Table unknown RDB$RELATIONS
    Помогите!!! глюкнула база выдает ошыбку- Could not find object. Table unknown RDB$RELATIONS. она работает только с ...
У нас большой выбор статей   |x|
Программирование Интернет приложений в Borland Kylix. Часть II
Эта статья продолжает серию, посвященную программированию Интернет-приложений в Borland Kylix. На этот раз речь пойдет о CGI-приложениях и модулях сервера Apache.
Новинки книжного рынка   |x|
Компьютерная графика. Энциклопедия
Книга адресована тем, кто хотел бы расширить свои профессиональные возможности в области компьютерной графики, в первую очередь: дизайнерам, иллюстраторам, художникам, разработчикам web-сайтов, а также всем желающим поближе познакомиться с увлекательным миром компьютерной графики и анимации. Прочитав ее, вы будете легко ориентироваться в разнообразии современных графических программ, овладеете популярными редакторами для создания растровой и векторной графики, познакомитесь с основами дизайна. Книга снабжена большим количеством примеров, иллюстрирующих работу различных графических программ, ее можно использовать и как учебник, и как подробное справочное руководство.
Автор: Рейнбоу В.
Другие сайты о DELPHI   |x|
Уголок разработчика
Новый сайт для разработчиков GJ
» Оценка сайта: 2
Опрос населения :)
Стоит ли устраивать встречи программистов в реале? (пирушки :)
»»» Обязательно!
»»» Иногда можно
»»» Я туда не пойду
»»» Категорически нет
Для души

Хокку дня
Что же ты, гейша, лежишь нагишом?
Знаю,что жарко, но я же терплю
Видишь, тулуп не снимаю!

Афоризмы
Добро побеждает зло... его же оружием.

Фраза дня
"Любишь кататься - катись к чертовой матери!" //Андрей Кнышев

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В городе Зайон в Иллонойсе (США) запрещается давать зажженые сигары кошкам, собакам и другим домашним животным.
В Кармеле в штате Нью Йорк (США), мужчине грозит штраф, если он выйдет на улицу в штанах, которые не подходят к пиджаку.

И на закуску коротенький анекдот
- Алло! Это психиатрия? Тут с человеком вдруг стало очень хорошо!

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=23456346

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное