Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошибка при попытке позвонить через модем [D6, WinME]

Lelik17 © (2002-06-07 12:49:00)
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
hCommFile : THandle;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var PhoneNumber : string;
CommPort : string;
NumberWritten: LongInt;
begin
CloseHandle(hCommFile);
PhoneNumber := "ATDP 7-812-943-98-10" + #13 + #10;
CommPort := "COM1";
{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
CloseHandle(hCommFile);
end;

end.

Говорит, что ошибочка вышла по поводу NumberWritten. В чём дело?
Зарание спасибо?

МИФИст (2002-06-07 15:15:00) [1]
Может быть нужно воспользоваться:
SetCommState, SetCommTimeouts.
Про это подробно написано в статье
http://delphi.vitpc.com/mastering/ports5.htm

На счёт NumberWritten:

nNumberOfBytesToWrite

[in] Number of bytes to write to the file.
A value of zero specifies a nullwrite operation.A null write operation does not write any bytes but does cause the time stamp to change. WriteFile does not truncate or extend the file. To truncate or extend a file, use the SetEndOfFile function.
Попробуй NumberWritten:=Length(PhoneNumber).

Song (2002-06-07 13:23:00) [2]
Посмотрите в FAQ как там сделано.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »