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
---
