🚀 go-pugleaf

On 6 Sty, 15:00, Arivald <NOSPAMariv...@interia.pl> wrote:
> 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;
>


Mistrzu jestes wielki, działą.

Funkcje brałem z książki
Od Pascala i c++ do delphi i buildera RS232C Daniluka.

A jak najszybciej odebrać odpowiedź drukarki (automatem, po wysłaniu
rozkazu) bez stosowaniu timerów i odczekiwania
zakladajac ze tym kodem wysylam:
>    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;

ogólną funkcję do odczytywania mam taką (również z tej książki):
function readSerialPort(hCommDev: THANDLE; bufSize: DWORD): BOOL;
var
  numberOfBytesRead: DWORD;
begin
Result:=false;
ClearCommError(hCommDev, errors, @comstat);
if (comstat.cbInQue > 0) then
begin

  if (comstat.cbInQue > bufSize) then
   numberOfBytesRead:=bufSize
  else
    numberOfBytesRead:=comstat.cbInQue;


  Result:=ReadFile(hCommDev, bufferIn, numberOfBytesRead, bytesRead,
nil);


end;


end;

pozdrawiam