---

Jeg prøver febrilsk at kommunikere med min seriel port. I mit tilfælde
en GPS modtager (virker næsten).
Jeg er dog stødt i et problem, når jeg benytter GetCommMask funktionen
(slå den evt op i WIN32.HLP filen) så får jeg følgende compiler fejl:
"[Error] GPS.pas(350): Types of actual and formal parameters must be
identical"
Som betyder at mine variabel erklæringen ikke stemmer over ens med den
måde funktionen er erklæret i windows.dcu filen. Spørgsmålet er så,
hvordan skal funktionenes 3 parametre så defineres?
De er som følger i c++ (WinAPI definitionen):

BOOL WaitCommEvent(
HANDLE hFile,   // handle of communications device
LPDWORD lpEvtMask,   // address of variable for event that occurred
LPOVERLAPPED lpOverlapped,    // address of overlapped structure
);

HANDLE svare i Delphi til THandle, det fungere fint.
LPDWORD skulle svare til PDWORD, men det fungere ikke, det er her den
melder fejl.
LPOVerlapped svare til en POverlapped (eller en pointer til en
TOverlapped).

Jeg tror jeg har stirret mig blindt på denne her datastruktur, så hvis
der er nogen der kender svaret vil jeg blive meget glad, eller hvis
nogen har en anden måde. Sagen er at man skal vente til comm porten er
klar til at læse eller skrive, og jeg er kommet frem til at det er
denne funktion som benyttes til dette.
Foresten så ved jeg godt at der er indtil flere eksempler både på
seriel og gps kommunikation, men ingen benytter GetCommEvent, og jeg
har ikke fået det til at virke (enten får jeg timeout eller en masse
volapyk tilbage). Der findes også gratis komponenter på nettet til den
slags, men jeg vil gerne lave det hele selv (det er jo det der er det
sjove, at opfinde den dybe tallerken og derved få fuld forståelse samt
en del AHA oplevelser).

Jeg kan lige nævne jeg benytter Delphi6 hvis det skulle have nogen
betydning.

På forhånd tak...

---

nivs1978@hotmail.com (Hans Milling) wrote:
>
> Jeg prøver febrilsk at kommunikere med min seriel port. I mit tilfælde
> en GPS modtager (virker næsten).
> Jeg er dog stødt i et problem, når jeg benytter GetCommMask funktionen
> (slå den evt op i WIN32.HLP filen) så får jeg følgende compiler fejl:
> "[Error] GPS.pas(350): Types of actual and formal parameters must be
> identical"
> Som betyder at mine variabel erklæringen ikke stemmer over ens med den
> måde funktionen er erklæret i windows.dcu filen. Spørgsmålet er så,
> hvordan skal funktionenes 3 parametre så defineres?
> De er som følger i c++ (WinAPI definitionen):
>
> BOOL WaitCommEvent(
> HANDLE hFile, // handle of communications device
> LPDWORD lpEvtMask, // address of variable for event that occurred
> LPOVERLAPPED lpOverlapped, // address of overlapped structure
> );

> HANDLE svare i Delphi til THandle, det fungere fint.
> LPDWORD skulle svare til PDWORD, men det fungere ikke, det er her den
> melder fejl.
> LPOVerlapped svare til en POverlapped (eller en pointer til en
> TOverlapped).

I windows.pas (godt nok i Delphi 5) er den defineret som:

function WaitCommEvent(hFile: THandle; var lpEvtMask: DWORD;
lpOverlapped: POverlapped): BOOL; stdcall;

så det er næsten rigtigt. Du skal altså bruge en DWORD (når der står "var"
i en Delphi/Pascal parameterliste svarer det til når C/C++ bruger pointere for
at kunne returnere resultater).

Der står mange gode ting i kildeteksten til komponenterne :)

MVH, René
--
Using Virtual Access
http://www.vamail.com