Læse data fra com4

function readport(port: string; bytes: dword): string;
var
   InputBuffer : string;
   NumberOfBytesRead : dword;
   MaxBytesToRead : dword;
   hCommFile : THandle;
   i: integer;
begin
   hCommFile := CreateFile(PChar(port),GENERIC_WRITE,0,nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

   if hCommFile=INVALID_HANDLE_VALUE then  exit;

   setlength(inputbuffer, bytes);
   for i := 1 to bytes do
    inputbuffer[I] := '1';

   MaxBytesToRead := bytes;
   if ReadFile(hCommFile, PChar(InputBuffer)^, MaxBytesToRead, NumberOfBytesRead, nil) = false then
   begin
      ShowMessage('Unable to read from comport');
      exit;
   end;
   result := copy(InputBuffer, 1, NumberOfBytesRead);
   closehandle(hCommfile);
end;

readport('COM4', 24);

noget ala dette?

Jeppe Johansen
Jeppesoftware@hotmail.com

[Redigeret d. 06/01-05 09:25:29 af Jeppe]

Hej Finn

Ja det sker jo at man er væk fra den aktive del fra tid til anden.

Jeg bruger selv Indy pakken, der vist også anvendes af den del andre. Der er en fin vejledning og eksempler at benytte sig af.

http://www.indyproject.org

Mik D.

Hej Jeppe.

Sorry jeg ikke har svarte tidligere, men du ved tid !!

Jeg har prøvet dit foreslag, men det virker ikke, første gang jeg kalder functionen får jeg fejlen "Unable to read from comport", derefter returnere functionen et tomt resultat.

Jeg skal måske lige sige at de data jeg skal læse er NMEA data, hvis du ikke kender NMEA data, disse data er sætninger der bliver afsluttet med <CR><LR>

Jeg har fundet en component fra Varien, sammen med et eks. der stort set laver det jeg søger.

Hilsen

Finn