Hogyan lehet lekerdezni az IP cimet Delphiben?
-
#221
Modemre szeretnék AT parancsot kiküldeni, de az alábbi példakód részlet nem működik tökéletesen..
A WriteFile() hívásánál hibát ír ki, méghozzá azt, hogy a paraméterek nem egyeznek a várt típusokkal.
[courier]
var
hCommFile : THandle;
procedure TForm1.Button1Click(Sender: TObject);
var
PhoneNumber : string;
CommPort : string;
NumberWritten : Integer;
j: integer;
begin
PhoneNumber := Edit2.Text + #13 + #10;
// 'ATDT 1-555-555-1212' + #13 + #10;
CommPort := Edit1.Text;
// 'COM2';
{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
{Close the port}
CloseHandle(hCommFile);
end;