Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > дельфи и модем

Автор: BSOD 7.11.2004, 11:55

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

Автор: Pakshin A. S. 7.11.2004, 12:08

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

Автор: maxim1000 7.11.2004, 12:43

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

Автор: BSOD 7.11.2004, 18:31

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

Автор: Pakshin A. S. 7.11.2004, 20:48

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

Код


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;