[Wine] Re: dot matrix POS parallel printer problems

[fluis]

Dan Kegel wrote:
> 
> ...
> That's interesting!  Can you write a little test program
> that demonstrates the problem, and send us the source
> and executable?  Maybe we can fix Wine.
> - Dan




Code:

program timp; (* Delphi 7 *)
{$APPTYPE CONSOLE}
uses
  SysUtils,windows;
(* Star SP200 Buffer off sw 6 on, Epson TM-U210PD buffer off sw 1-2 on*)
var
  devname : string = 'LPT1';
  ps : array [0..41] of char = '0123456789012345678901234567890123456789'#10#13;
  nl : array [0..3] of char = #10#13#10#13;
  i,i2,FHandle : integer;
  e : DWORD;
begin
  FHandle := CreateFile(PChar(devname), GENERIC_WRITE, 0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0 );
  try
    for i := 0 to 49 do
      WriteFile(FHandle,ps[0],42,e,nil); (* xp ok *)

    for i := 0 to 3 do WriteFile(FHandle,nl[i],1,e,nil);

    for i := 0 to 49 do
      for i2 := 0 to 41 do
        WriteFile(FHandle,ps[i2],1,e,nil); (* xp&wine ok *)
  finally
    CloseHandle(FHandle);
  end;
end.




exe: http://ajuda.variavel.com/timp.zip

Wine version 0.9.28 kernel 2.6.21, large printer buffers can hide the problem.

Best regards

Luis Forra
---