VPF::дельфи и модем - Форум программистов

BSOD

Дата 7.11.2004, 11:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 405
Регистрация: 1.11.2004
Где: Гомель

Репутация: нет
Всего: 3

Как из delphi общаться с модемом AT командами (модем на com1)
smile

--------------------

как корабль назовешь - то на нем и напишешь

Pakshin A. S.

Дата 7.11.2004, 12:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61

Как мне понимается... открыть порт, добавить туда инфу...

maxim1000

Дата 7.11.2004, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: нет
Всего: 110

можно использовать WinAPI (CreateFile,WriteFile,CloseFile)
описание их использования есть в MSDN (правда, там для C, но параметры и функции для Delphi те же)

--------------------

qqq

BSOD

Дата 7.11.2004, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 405
Регистрация: 1.11.2004
Где: Гомель

Репутация: нет
Всего: 3

Ну так я и спрашиваю как открыть порт.................

--------------------

как корабль назовешь - то на нем и напишешь

Pakshin A. S.

Дата 7.11.2004, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61

Попробуй это:

Код


var
  hCommFile:THandle;

function WritePort(Command: string):boolean;
var
 CommPort:string;
 Written: PRWord;
begin
 CommPort:='Com1';
 hCommFile:=CreateFile(PChar(CommPort), GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 if hCommFile = INVALID_HANDLE_VALUE
  then
   Result:=false
  else
    begin
     New(Written);
     WRitten^:=0;
     if WRiteFile(hCommFile, PChar(Command)^, Length(Command), Written^, nil = false
      then
       Result:=false
      else
       Dispose(Written);
   end;
end;

procedure ClosePort;
begin
 CloseHandle(hCommFile);
end;

Это сообщение отредактировал(а) Pakshin A. S. - 7.11.2004, 20:50

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »