🚀 go-pugleaf

W dniu 2012-01-06 14:36, Przemyslaw Rokicki pisze:
> On 6 Sty, 14:01, PaSkol<DearthNOSPAMpas...@op.pl>  wrote:
>> W dniu 2012-01-06 13:30, Główny Użytkownik pisze:
>>
>>
>>
>>>     query := pchar(s);
>>>     if (hCommDev<>    INVALID_HANDLE_VALUE)
>>>       and (hCommDev>    0) then
>>>     begin
>>>       repeat
>>>         StrCopy(bufferOut, query);
>>>         FlushFileBuffers(hCommDev);
>>>       until (writeSerialPort(hCommDev, Strlen(bufferOut))<>    FALSE);
>>>     end;
>>
>> Co to jest bufferOut? Bufor o ustalonej długości? Jeśli tak, to można
>> wykonać:
>> Move(s[1], bufferOut, Min(Length(s), Length(bufferOut))
>>
>> Bo StrCopy (OIDP) kopiuje wg konwencji C, czyli do pierwszego #0;
>
>
> nic to nie dało, do drukarki nie idzie cały string bo nie ma zadnego
> komunikatu.
> Zresztą problem pewnie występuje na poziomie tworzenia stringa bo nie
> wyświetla w showMessage jak pisałem wyżej.

String jest dobry, sprawdź Length(s) przed linią z "query := pchar(s);"

ShowMessage Ci go nie wyświetli, ale z innego powodu. Po prostu 
ShowMessage używa TLabel do wyświetlania tekstu. A TLabel używa 
WM_SETTEXT i PChar do ustawienia tekstu, niejako podążając za konwencją 
C-stringów, i owo 0 wewnątrz bardzo mu przeszkadza.

Koncepcja z Move jest jak najbardziej prawidłowa, ale wywołanie Strlen() 
ją niszczy. Strlen() działa na c-stringach, i liczy tylko do pierwszego 
zera.


   if (hCommDev <> INVALID_HANDLE_VALUE) and (hCommDev > 0) then
   begin
     repeat
       dataLength = Min(Length(s), Length(bufferOut));
       Move(s[1], bufferOut, dataLength);
       FlushFileBuffers(hCommDev);
     until (writeSerialPort(hCommDev, dataLength) <> FALSE);
   end;


A jeszcze lepiej było by dać sobie spokój z pośrednim buforem 
"bufferOut", i zapisuwać bezpośrednio ze stringa s. Ale do tego funkcja 
writeSerialPort() powinna pobierać adres bufora (jak większość tego typu 
funkcji), unikając zbędnego kopiowania.
Wtedy pętla wyglądała by tak:

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

-- 
Arivald