Tag Leute,
ich habe ein riesen Problem, meine Druckerschächte, ich habe mir die letzten
2 Tage darum einem Kopf gemacht komme aber nicht weiter.
Also ich habe
W2k und arbeite mit dem Delphi 5 Enterprise.
Ich habe mir schon mehrere Artikel im Netz angeschaut, um das vorweg zu nehmen wie diesen
hier z.B:
http://www.delphipraxis.net/internal...hlight=printer
Aber das hilft mir noch nicht weiter. Denn Standartdrucker zu setzen ist nicht das Problem aber wie setze ich den Standartschacht? Ich habe es erst so versucht aber es funktioniert nicht, aber ich finde keinen Fehler...
Delphi-Quellcode:
Procedure SetzeSchacht(Schacht : integer);
var
ADevice, ADriver, APort: array [0..255] of Char;
ADeviceMode: THandle;
DevMode: PDeviceMode;
begin
Printer.GetPrinter( ADevice, ADriver, APort, ADeviceMode );
if ADeviceMode <> 0 then GlobalUnlock( ADeviceMode );
DevMode := GlobalLock( ADeviceMode );
DevMode.dmFields := DevMode.dmFields or DM_DEFAULTSOURCE;
DevMode.dmDefaultSource := Schacht;
Printer.SetPrinter( ADevice, ADriver, APort, ADeviceMode );
GlobalUnlock( ADeviceMode );
DevMode.dmDefaultSource := Schacht;
end;
Wenn ich den Druckerschat dann wie folgt auslese, zeigt er zwar das richtige
an aber druckt aus dem falschen Schacht.
Delphi-Quellcode:
function LeseAktuellenSchacht: integer;
var
hDevMode: THandle;
Device,Driver,Port: array [0..255] of Char;
bin: integer;
DevMode: PDevMode;
begin
//Standartdrucker;
Printer.GetPrinter(Device,Driver,Port,hDevMode);
bin := -1;
if hDevMode <> 0 then begin
DevMode := GlobalLock (hDevMode);
bin := DevMode^.DMDEFAULTSOURCE;
GlobalUnlock (hDevMode);
end;
result := bin;
end;
Wer kann mir weiter helfen?
PS: Danke schon mal im voraus....
ALMEX
[edit=sakura] Das ganze ROT ausgewaschen 
Mfg, sakura[/edit]