"Michael Vilhelmsen" wrote:
> Jeg vil gerne kunne skrive direkte til en printer i windows.
> Jeg skal have sendt en escape sekvens af sted, som i dette
> tilfælde skal være:
>
> #27#28#70#1#0
>
> og intet andet.
> Hvordan gør jeg nemmest det ?
{--------------------}
{ uses Windows, ... }
procedure SkrivDinLilleSekvensTil_LPT1;
const
StrOut = #27#28#70#1#0;
var
Handle: THandle;
BytesWritten: DWORD;
begin
Handle := CreateFile('LPT1',
GENERIC_WRITE, 0, NIL, OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, 0);
if Handle <> INVALID_HANDLE_VALUE then
try
WriteFile(Handle, StrOut, Length(StrOut), BytesWritten, NIL);
finally
CloseHandle(Handle);
end;
end;
{--------------------}
-ThomasN
|