No FTP list parsers have been registered

 

FTPListItems := idFTP.DirectoryListing，出現錯誤訊息

No FTP list parsers have been registered

只需要在程式的 uses 區段中加入 IdAllFTPListParsers 即可

修正 Quick Report 預覽/列印的顯示比例

 當調整了電腦螢幕的縮放比例後，操作程式裡的報表QuickReport，發現報表預覽的資料內容沒有隨著顯示縮放比跟著做調整，但不影響實際列印輸出的結果。

參考網上的作法，修正 QuickReport 需 QRPrntr.pas 排除縮放比的問題。

我採用網友提供的方法1來處理。

File Name : QRPrntr.pas

Procedure Name : CreateMetafileCanvas

QRPrntr.pas 修正後，重新編譯QR506RunDXE10.bpl，

預覽結果就會以符合系統縮放比做調整了。

【參考連結】

老森常譚 IT Help 《Delphi》修正 Quick Report 預覽列印的比例問題

Exception EInOutError in module xxx.exe at 0000854A. File access denied.

 

啟動程式遇到以上的錯誤訊息，資料夾必須開放存取權限，資料夾內的文件必須取消唯讀屬性。

[dcc32 Fatal Error] ToolsAPI.pas(18): F2613 Unit 'DockForm' not found.

 專案 Uses ToolsAPI 編譯時，Unit ToolsAPI 出現找不到 DockForm的錯誤訊息。

[Project]  >  [Options...] 

在  [Options...] 裡圖中的位置輸入 -LUDesignIDE

參考:

• https://www.cnblogs.com/cb168/p/4380756.html
• http://stackoverflow.com/questions/27699662/how-to-build-delphi-projects-for-win64-when-units-inside-it-uses-designeditors-d

程式在非中文語系的系統中操作中文檔名的文件，中文會變成亂碼 ?????...

程式在非中文語系的系統中操作中文檔名的文件，中文會變成亂碼 ?????... 

問題排除方式

Control Panel (控制台)

Region 

Access violation at address xxxxxxxx in module 'rtl70.bpl'. read of address xxxxxxxx

 

程式中使用到QuickReport物件，機器設備上必須先設定有印表機，如果是網路印表機，必須是已連線的狀態。

Excel Class Workbook 的 SaveAs 方法失敗

 

操作遠端連線在Terminal主機使用相同的程式，部份使用者在操作Excel匯出時會出現「Class Workbook 的 SaveAs 方法失敗」，需要將使用者的UserProfile刪除，重新登入後讓系統重建就可以正常匯出。

操作Printers.Printer.PrintIndex 無法變更 QuickReport PrintSetup裡的輸出印表機!?

Uses Printers;

...

Printers.Printer.PrintIndex := 1;  //指定輸出的印表機索引，不會變更預設印表機

...

TPrintDialog會依據PrintIndex的變更指向對應的印表機，

QuickReport PrintSetup沒有因為PrintIndex變更指定輸出的印表機，維持指向預設印表機。

修正QuickReport QRPrnSu.pas文件

Ver. QuickRep506 
File : QRPrnSu.pas
Proceure : GetPrinter

原內容

{ TQRBasePrintDialog }
// HERE the important changes - see dialogs.pas from delphi vcl - source.
// note the Brackets and type casts! It's tricky :-)

procedure TQRBasePrintDialog.GetPrinter(var DeviceMode, DeviceNames: THandle);

var

  DevNames: PDevNames;

  Offset: PChar;

  size : integer;

begin

  FPrinter.GetPrinter(Device, Driver, Port, DeviceMode);

  if DeviceMode <> 0 then

  begin

    size:=SizeOf(TDevNames) +

          (StrLen(Device) + StrLen(Driver) + StrLen(Port) + 3) *Sizeof(Char);

    //DeviceNames := GlobalAlloc(GHND,SizeOf(TDevNames) +

    //               (StrLen(Device) + StrLen(Driver) + StrLen(Port) + 3) *Sizeof(Char));

    //DevNames := PDevNames(GlobalLock(DeviceNames));

    GetMem(DevNames, Size);

    try

      Offset := PChar(PByte(DevNames) + SizeOf(TDevnames));

      with DevNames^ do

      begin

        wDriverOffset := NativeInt(Offset) - NativeInt(DevNames);

        Offset := StrECopy(Offset, Driver) + 1;

        wDeviceOffset := NativeInt(Offset) - NativeInt(DevNames);

        Offset := StrECopy(Offset, Device) + 1;

        wOutputOffset := NativeInt(Offset) - NativeInt(DevNames);;

        StrCopy(Offset, Port);

      end;

    finally

      //GlobalUnlock(DeviceNames);

      FreeMem(DevNames, Size);

    end;

  end;

end;

參考備註指定的 Dialogs.pas 修正

{ TQRBasePrintDialog }
// HERE the important changes - see dialogs.pas from delphi vcl - source.
// note the Brackets and type casts! It's tricky :-)

procedure TQRBasePrintDialog.GetPrinter(var DeviceMode, DeviceNames: THandle);

var

  DevNames: PDevNames;

  Offset: PChar;

  size : integer;

begin

  FPrinter.GetPrinter(Device, Driver, Port, DeviceMode);

  if DeviceMode <> 0 then

  begin

    //size:=SizeOf(TDevNames) +

    //      (StrLen(Device) + StrLen(Driver) + StrLen(Port) + 3) *Sizeof(Char);

    DeviceNames := GlobalAlloc(GHND, SizeOf(TDevNames) +

                   (StrLen(Device) + StrLen(Driver) + StrLen(Port) + 3) *Sizeof(Char));

    DevNames := PDevNames(GlobalLock(DeviceNames));

    //GetMem(DevNames, Size);

    try

      Offset := PChar(PByte(DevNames) + SizeOf(TDevnames));

      with DevNames^ do

      begin

        wDriverOffset := Offset - PChar(DevNames);

        Offset := StrECopy(Offset, Driver) + 1;

        wDeviceOffset := Offset - PChar(DevNames);

        Offset := StrECopy(Offset, Device) + 1;

        wOutputOffset := Offset - PChar(DevNames);;

        StrCopy(Offset, Port);

      end;

    finally

      GlobalUnlock(DeviceNames);

      //FreeMem(DevNames, Size);

    end;

  end;

end;

QRPrnSu.pas修正後儲存，重新編譯/安裝 QR506DesignDXE10.bpl、QR506RunDXE10.bpl

Delphi VFW 操作Web Cam影像輸出，出現黑屏的解決方式

VFW 操作Web Cam影像輸出，換了不同型號的Web Cam出現黑屏，原來是「視訊格式」不同造成。

Code:

    hCapWnd := THandle;

    hCapWnd := capCreateCaptureWindow('Cam. Window',WS_VISIBLE or WS_CHILD, 

      0, 0, Panel1.Width, Panel1.Height, Panel1.Handle, 0);

    capDriverConnect(hCapWnd, 0); 

    capDlgVideoFormat(hCapWnd); //會出現「視訊各式」的視窗

將「像素深度(位元)及壓縮」設置成 YUY2 即可

Excel 操作出現 "外部資料表不是預期的格式"

 

用程式操作開啟Excel文件，出現 "外部資料表不是預期的格式" 

或是用Excel開啟文件，出現檔案格式不相符的訊息

存檔時將文件格式指定為 "一般活頁簿"，可以排除這類的狀況。

excel := CreateOleObject('Excel.Application');

excel.Visible := False;

excel.Workbooks.Add;

workbook := excel.Workbooks[1];

...

...

workbook.SaveAs(OleVariat(filename), -4143);

轉貼自 https://docs.microsoft.com/zh-tw/office/vba/api/excel.xlfileformat

XlFileFormat 列舉 (Excel)

會指定儲存工作表時的檔案格式。

名稱	值	描述	副檔名
xlAddIn	18	Microsoft Excel 97-2003 增益集	*.xla
xlAddIn8	18	Microsoft Excel 97-2003 增益集	*.xla
xlCSV	6	CSV	*.csv
xlCSVMac	22	Macintosh CSV	*.csv
xlCSVMSDOS	24	MSDOS CSV	*.csv
xlCSVUTF8	62	UTF8 CSV	*.csv
xlCSVWindows	至	Windows CSV	*.csv
xlCurrentPlatformText	-4158	目前平台文字	*.txt
xlDBF2	7	Dbase 2 格式	*.dbf
xlDBF3	8	Dbase 3 格式	*.dbf
xlDBF4	11	Dbase 4 格式	*.dbf
xlDIF	9	資料交換格式	*.dif
xlExcel12	50	Excel 二進位活頁簿	*.xlsb
xlExcel2	16	Excel 2.0 版 (1987)	*.xls
xlExcel2FarEast	7	Excel 2.0 遠東版 (1987)	*.xls
xlExcel3	29	Excel 3.0 版 (1990)	*.xls
xlExcel4	33	Excel 4.0 版 (1992)	*.xls
xlExcel4Workbook	35	Excel 4.0 版 活頁簿格式 (1992)	*.xlw
xlExcel5	39	Excel 5.0 版 (1994)	*.xls
xlExcel7	39	Excel 95 (7.0 版)	*.xls
xlExcel8	56	Excel 97-2003 活頁簿	*.xls
xlExcel9795	43	Excel 95 與 97 版	*.xls
xlHtml	44	HTML 格式	.htm；.html
xlIntlAddIn	得到	國際增益集	沒有副檔名
xlIntlMacro	0.25	國際巨集	沒有副檔名
xlOpenDocumentSpreadsheet	60	OpenDocument 試算表	*.ods
xlOpenXMLAddIn	55	開啟 XML 增益集	*.xlam
xlOpenXMLStrictWorkbook	61 (&H3D)	Strict Open XML 檔案	*.xlsx
xlOpenXMLTemplate	54	開啟 XML 範本	*.xltx
xlOpenXMLTemplateMacroEnabled	53	開啟 Open XML 範本巨集啟用	*.xltm
xlOpenXMLWorkbook	51	開啟 XML 活頁簿	*.xlsx
xlOpenXMLWorkbookMacroEnabled	52	開啟 XML 活頁簿巨集啟用	*.xlsm
xlSYLK	第	符號連結格式	*.slk
xlTemplate	17	Excel 範本格式	*.xlt
xlTemplate8	17	範本 8	*.xlt
xlTextMac	19	Macintosh 文字	*.txt
xlTextMSDOS	21	MSDOS 文字	*.txt
xlTextPrinter	36	印表機文字	*.prn
xlTextWindows	共	Windows 文字	*.txt
xlUnicodeText	42	Unicode 文字	沒有副檔名；*.txt
xlWebArchive	45	Web 封存	.mht；.mhtml
xlWJ2WD1	14	日文 1-2-3	*.wj2
xlWJ3	40	日文 1-2-3	*.wj3
xlWJ3FJ3	41	日文 1-2-3 格式	*.wj3
xlWK1	5	Lotus 1-2-3 格式	*.wk1
xlWK1ALL	加	Lotus 1-2-3 格式	*.wk1
xlWK1FMT	大約	Lotus 1-2-3 格式	*.wk1
xlWK3	15	Lotus 1-2-3 格式	*.wk3
xlWK3FM3	32	Lotus 1-2-3 格式	*.wk3
xlWK4	38	Lotus 1-2-3 格式	*.wk4
xlWKS	4	Lotus 1-2-3 格式	*.wks
xlWorkbookDefault	51	預設活頁簿	*.xlsx
xlWorkbookNormal	-4143	一般活頁簿	*.xls
xlWorks2FarEast	日	Microsoft Works 2.0 遠東格式	*.wks
xlWQ1	34	Quattro Pro 格式	*.wq1
xlXMLSpreadsheet	46	XML 試算表	*.xml

Flutter warning: [deprecation] get(int,int) in CamcorderProfile has been deprecated 排除

 

warning: [deprecation] get(int,int) in CamcorderProfile has been deprecated 排除

compileSdkVersion = 31
targetSdkVersion = 31

截錄:

• [Camera] CamcorderProfile deprecated in Android API level 31

Flutter Error: Cannot run with sound null safety, because the following dependencies 排除

Error: Cannot run with sound null safety, because the following dependencies 

Copy: --no-sound-null-safety

截錄

• Cannot run with sound null safety because dependencies don't support null safety

Try..Except..End 例外狀況處理

Try

  ...

  ...

Except

  ...

End;

Exception

Try

  ...

  ...

Except

   on E:Exception do

  begin

    MessageBox(Handle, PWideChar(E.Message), PWideChar(E.ClassName), MB_ICONError);

  end

End;

截取 ADO 錯誤訊息

 procedure ADOConnection1ExecuteComplete(Connection: TADOConnection; RecordsAffected: Integer;
  const Error: Error; var EventStatus: TEventStatus; const Command: _Command; const Recordset: _Recordset);
begin
  //ADO 錯誤訊息
  if EventStatus=esErrorsOccured then
  begin
    ShowMessage(Error.Description);
  end;
end;

Delphi 執行檔，程式碼執行無法繼續，因為找不到Borlndmm.dll。...

Delphi 獨立執行檔(Exe)，啟動後出現錯誤訊息

"程式碼執行無法繼續，因為找不到borlndmm.dll。重新安裝程式或許可以修正此問題。"

與 uese ShareMem有關