XModem1 component error

[yassinov®]

Please i need some help to fix this problem !
------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
Begin
xmodem1.OpenDevice;
xmodem1.EnterCommandState;
//////////////////////////////////;
//////////////////////////////////;
//////////////////////////////////;
end;

------------------------------------
After run Error message show's :

'Modem command state not Present'

[Phase]

global:
var
port: THandle;
dcb: TDCB;
////////////////////////////////////////
///////////////////////////// and so on............
Function OpenPort: Boolean;
var
/////////////// local vars
begin
Result := False;
port := CreateFile('some com port', 0, 0, nil, OPEN_EXISTING, FILE_NORMAL_ATTRIBUTES,0);
if port = INVALID_HANDLE_VALUE then exit;
GetCommState(port,dcb);

go on...

Result := True;
end.

PS: Just read winapi reference.

[yassinov®]

Originally Posted by Phase

global:
var
port: THandle;
dcb: TDCB;
////////////////////////////////////////
///////////////////////////// and so on............
Function OpenPort: Boolean;
var
/////////////// local vars
begin
Result := False;
port := CreateFile('some com port', 0, 0, nil, OPEN_EXISTING, FILE_NORMAL_ATTRIBUTES,0);
if port = INVALID_HANDLE_VALUE then exit;
GetCommState(port,dcb);

go on...

Result := True;
end.

PS: Just read winapi reference.

Thanks ! All right !

[sunnyc]

tell me online i will help u icq 267-517-390