implementation
{$R *.DFM} var hCommFile : THandle; // Botón para establecer la comunicación procedure TForm1.Button1Click(Sender: TObject); var NumeroTfno : string; PuertoCom : string; numero : cardinal; begin NumeroTfno := 'ATDT 670775799' + #13 + #10; PuertoCom := 'COM3'; // utilizo modem interno a ese puerto { Utiliza el COM como si de un fichero más se tratase. Por ello la funcion CreateFile} hCommFile := CreateFile(PChar(PuertoCom), GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if hCommFile=INVALID_HANDLE_VALUE then begin ShowMessage('No puedo abrir el puerto '+ PuertoCom); exit; end; // Escribe en el fichero, es decir, efectúa el marcaje numero:=0; if WriteFile(hCommFile, PChar(numerotfno)^, Length(numerotfno), numero, nil) = false then begin ShowMessage('No puedo comunicar con el ' + PuertoCom); end; end; // Botón para cerrar la comunicación procedure TForm1.Button2Click(Sender: TObject); begin CloseHandle(hCommFile); end;
Ważne artykuły