🚀 go-pugleaf

Hi JD ,


"JD" <nospam@nospam.com> wrote in message 
news:44944ca9$1@newsgroups.borland.com...

> I have absolutely no clue why I can't get this simple test to
> work. All it does is open a port, and write to it and read from
> it.
>
> The write seems to work because no errors are reported and the
> number of bytes written are correct. The read, OTOH reports
> nada - no errors and no data.

> //--------------------------------------------------------------
> void __fastcall TForm1::Button1Click(TObject *Sender)
> {
>    if( hCom != INVALID_HANDLE_VALUE )
>      {
>          DWORD nBytes;
>          AnsiString c = "Test String";
>          if( ! ::WriteFile( hCom, c.c_str(), c.Length(), &nBytes, NULL) )
>     {
>                 throw ComException( "Write Failed " + 
> SysErrorMessage(::GetLastError()), ::GetLastError() );
>            }
>          ShowMessage("Write " + IntToStr(nBytes) );
>      }
> }
> //--------------------------------------------------------------

Can your device understand the command "Test String" ?

If is a modem device better use "at\r" to be sure of Read operation.

_minas

------
"Only virtue's conquests have certainty" Sofokleous Erephyle