🚀 go-pugleaf

W dniu 2012-01-06 15:02, Przemyslaw Rokicki pisze:
> On 6 Sty, 14:55, PaSkol<DearthNOSPAMpas...@op.pl>  wrote:
>> W dniu 2012-01-06 14:36, Przemyslaw Rokicki pisze:
>>
>>>>>        until (writeSerialPort(hCommDev, Strlen(bufferOut))<>      FALSE);
>>
>>> nic to nie dało, do drukarki nie idzie cały string bo nie ma zadnego
>>> komunikatu.
>>
>> Co to jest writeSerialPort? Skoro korzystasz z API, to czy ta funkcja
>> uruchamia WriteFile? Skąd writeSerialPort ma wiedzieć gdzie są dane do
>> wysłania? Poza tym StrLen operujące na bufferOut automatycznie skraca
>> bufferOut do pierwszego zera w treści. Więc i tak reszta nie pójdzie na
>> port.
>>
>
> function writeSerialPort(hCommDev: THANDLE; numberOfBytesToWrite:
> DWORD): BOOL;
> var
>    numberOfBytesWritten: DWORD;
> begin
>    WriteFile(hCommDev, bufferOut, numberOfBytesToWrite,
> numberOfBytesWritten, nil);
>    Result := WaitCommEvent(hCommDev, fdwEvtMask, nil);
> end;


Napisz to tak

function writeSerialPort(
   hCommDev: THANDLE;
   buffer: pointer;
   numberOfBytesToWrite: DWORD
): BOOL; overload;

function writeSerialPort(
   hCommDev: THANDLE;
   const data: string;
): BOOL; overload;


implementation

function writeSerialPort(
   hCommDev: THANDLE;
   buffer: pointer;
   numberOfBytesToWrite: DWORD
): BOOL;
var
   numberOfBytesWritten: DWORD;
begin
   WriteFile(hCommDev, buffer, numberOfBytesToWrite, 
numberOfBytesWritten, nil);
   Result := WaitCommEvent(hCommDev, fdwEvtMask, nil);
end;

function writeSerialPort(
   hCommDev: THANDLE;
   const data: string;
): BOOL;
begin
   Result := writeSerialPort(hCommDev, pchar(data), length(data));
end;


i potem Twój kod z poprzedniego postu

   if (hCommDev <> INVALID_HANDLE_VALUE) and (hCommDev > 0) then
   begin
     repeat
       FlushFileBuffers(hCommDev);
     until (writeSerialPort(hCommDev, s) <> FALSE);
   end;

-- 
Arivald