Her er noget gammel kode flyttet fra 16 til 32 bit
var cid : integer;
procedure initcomm;
var comtext,comport : string;
pc : array [0..100] of char;
Rob : PSecurityAttributes;
begin
comtext :=
'COM1, 1200, e, 7, 1';
comport := copy(comtext,1,4);
StrPcopy(pc,comport);
new(rob);
Rob.lpSecurityDescriptor := nil;
Rob.nlength := 12;
Rob.bInheritHandle := FALSE;
CId := CreateFile(pc,
GENERIC_WRITE,
0,
Rob,
OPEN_EXISTING,
FILE_attribute_normal,
0);
if cid < 0 then
begin
exception.create('Error open COM port');
end;
StrPcopy(pc,comtext);
if not BuildCommDCB(pc,dcb) then
begin
raise exception.create('Error in initstring');
end;
if not SetCommState(cid, dcb) then raise exception.create('Error setting
comport');
// lukkes igen med closehandle(cid);
end;
--
Thomas Riedel, LogiHouse
"~*~ Mivi ~*~" <mivi@occdata.dk> wrote in message
news:xHBp7.18924$sk1.604056@news010.worldonline.dk...
> Ja, men det koster jo penge.
> Og det eneste jeg skal, er at have initieret porten først.
> Resten har jeg allerede lavet !
>
> Michael
>
>
> "Roald Henriksen" <mail@pentagon-electric.dk> wrote in message
> news:Y2vp7.5517$lk7.115946@news.get2net.dk...
> > Har du kigget på komponenten Async32?
> > Mvh RH
> >
> >
> >
>
>
|