データー受信時のバッファ内データーのサイズを取得する為には、
ReceiveSizeを使用します。
当然
Commデバイスが
Open状態である必要があります。
通常は、割り込み受信を使用するので、受信サイズの取得はしません。
受信割り込みは、受信サイズを持ってきます。
var
Instring: string;
Procedure CommRead;
var
Size: Cardinal;
Buf: PChar;
begin
Size := Comm1.ReceiveSize;
if Size > 0 then
begin
Buf := AllocMem(Size + 1);
Comm1.Read(Buf,Size);
Instring := Buf;
Freemem(Buf, Size + 1);
end;
end;