ExtEscape

[Moony]

Hallo Leute,

ich habe versucht eine Lösung zu finden, komme aber nicht dahinter. Folgendes Problem:

Ich habe eine Bibliotheksdatei (Datei.h) von einem Druckertreiber. In dieser Datei sind die möglichen Funktionen deklariert:

Delphi-Quellcode:

#define ESC_ICENCODE 11013

typedef struct
{
    DWORD hwnd;
    WORD  nID;
} MY_ICENCODE;

typedef MY_ICENCODE FAR * LPMY_ICENCODE;

Das habe ich in Delphi übersetzt und folgendes ist bei rum gekommen:

Delphi-Quellcode:

type
  TMY_ICENCODE = record
    hwnd : DWORD;
    nID  : Word;
  end;

const
  ESC_ICENCODE = 11013;

Um eine Escape-Sequenz an den Drucker zu schicken habe ich dann folgende Routine geschrieben:

Delphi-Quellcode:

function EncodeData(hc: HDC): Boolean;
var _MYEncode : TMY_ICENCODE;
    Res       : Integer;
begin
  Result := false;
  if InitPrinterDriver = 0 then Exit;

  _MYEncode.hwnd := hc;
  _MYEncode.nID  := PrntID;

  Res := ExtEscape(hc, ESC_ICENCODE, SizeOf(TMY_ICENCODE), @_MYEncode, SizeOf(TMY_ICENCODE), @_MYEncode);
   if  Res < 0 then
  begin
    ShowMessage('Error!');
    Result := false;
  end
  else if Res = 0 then
  begin
    ShowMessage('Function is not implemented!');
    Result := false;
  end
  else if Res > 0 then Result := true;
end;

Das HDC, das übergeben wird, ist das Handle der Treiber-DLL. Die Funktion kommt immer mit 0 zurück. Was mache ich falsch? Ich hoffe es weiß jemand eine Lösung.

Thx im Voraus.

Gruß, Moony

[shmia]

Willst du Druckdaten direkt (also 1 zu 1) an einen Drucker schicken?
Dann kannst du die Unit im Anhang verwenden.
Damit werden Druckdaten als String an der Spooler gesendet, der sie unverändert an den Drucker weiterreicht.

[Moony]

Nein, ich will bestimmte Kommandos die vom Treiber zugelassen sind an den Drucker schicken. Z.B. die Karte innerhalb eines Druckers an eine Bestimmte Position fahren. Das Drucken ist für mich keine Problem.

[shmia]

Zitat von Moony:

Das HDC, das übergeben wird, ist das Handle der Treiber-DLL.

Die MSDN sagt, es müsse ein Handle für den DeviceContext sein.
Vielleicht bringt die Auswertung von LastError etwas:

Delphi-Quellcode:

  if  Res < 0 then 
  begin 
    ShowMessage('Error!'#13#10+SysErrorMessage(GetLastError)); 
    Result := false; 
  end 
  else if Res = 0 then 
  begin 
    ShowMessage('Function is not implemented!'#13#10+SysErrorMessage(GetLastError)); 
    Result := false; 
  end

[Moony]

Gute Idee. Der Fehler besagt, dass das Handle ungültig ist...aber wie bekomme ich das HAndle des Device Context?

[shmia]

Zitat von Moony:

Gute Idee. Der Fehler besagt, dass das Handle ungültig ist...aber wie bekomme ich das HAndle des Device Context?

Es handelt sich dabei um ein GDI-Handle; also ein Handle zur Ausgabe von graphischen Ausgaben.
Man kommt über
hdc := Printer.Canvas.Handle; dran. Das Handle ist aber erst nach Printer.BeginDoc gültig.

[Moony]

Wenn ich das PrinterHandle übergebe wird zwar der Vorgang erfolgreich weitergegeben, aber jetzt kommt die ExtEscape Routine mit -1 zurück. Vorher war das Result := 0.