Printer.GetPrinter вызывает исключение в Delphi XE2

Question

Я пытаюсь напечатать серию меток на принтере Zebra S4M, по какой-то причине высота страницы, похоже, застряла на 5 см, и мне нужно, чтобы она составляла 6,8 см.

Я пытаюсь установить размер бумаги, используя следующий код

var 
    FDevice: PChar; 
    FDriver: PChar; 
    FPort: PChar; 
    DeviceMode: THandle; 
    DevMode: PDeviceMode; 
begin 
    {to get a current printer settings} 
    Printer.GetPrinter(FDevice, FDriver, FPort, DeviceMode); 
    {lock a printer device} 
    DevMode := GlobalLock(DeviceMode); 
    DevMode^.dmPaperSize := 0; 
    DevMode^.dmPaperWidth := fBaseSettings.Width; 
    DevMode^.dmPaperLength := fBaseSettings.Height; 
    Printer.SetPrinter(FDevice, FDriver, FPort, DeviceMode); 
    {unlock a device} 
    GlobalUnlock(DeviceMode); 
end; 

где fBaseSettings содержит размеры целевой метки (помимо всего прочего), но я получаю сообщение об ошибке Project SPXLabels.exe raised exception class $C0000005 with message 'access violation at 0x00rred82: write of address 0x59212b17

I не вижу, что я делаю неправильно! Любая помощь очень ценится.

Answer 1

FDevice, FDriver и FPort являются указателями на строку, которую вы передаете, чтобы вернуть данные. Таким образом, вы должны сначала разрешить память для этого.

попробовать это

var 
    FDevice, FDriver, FPort: string; 
begin 
    SetLength(FDevice, 200); 
    SetLength(FDriver, 200); 
    SetLength(FPort, 200); 
    {to get a current printer settings} 
    Printer.GetPrinter(PChar(FDevice), PChar(FDriver), PChar(FPort), DeviceMode);