Delphi-Quellcode:
procedure TLegacySerialProgrammerModule.ComPortAdapterSendChar(
Sender: TObject; const Value: Char; const ContentType: TContentType);
begin
while ComPort1.OutBuffUsed>0 do
application.ProcessMessages;
if ComPort1.Open then
begin
ComPort1.PutChar(Value);
end;
end;
Das erinnert mich doch sehr an DOS-Zeiten
Delphi-Quellcode:
...
while BufferI<>Bufferlast do begin write('.') end;
writeln;
TuWas_mit_Buffer;
...
nur wird hier nichts ausgegeben, darum weißt Du nicht wieviel Zeit das Programm in der Warteschleife verbringt.
Übrigens, ist Value wirklich ein Char oder doch ein AnsiChar?
Gruß
K-H