背景說明:
前段時間開發一個資料轉換的系統,業務邏輯中說明資料需要壓縮成.tar.gz格式。
我在Windows系統下採用,先生成批次文件,然後呼叫WinExec執行批次文件,休眠等待一段時間,完成資料的自動壓縮。
後來發現,待壓縮檔案的大小不確定,單純的執行WinExec時Sleep固定時間,可能導致壓縮失敗、檔案不全或損壞。
優化方案:
取代WinExe用CreateProcess用來啟動進程, 執行批次檔, 同時系統會自動填入TProcessInformation這個結構。
此時程式會自動阻塞到該批次中,等待批次句柄的程序結束或逾時。這樣就能解決壓縮損毀問題。
給個實例Demo:
D7代碼如下:
unit uMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TFrmMain = class(TForm) mmMsg: TMemo; string); procedure btnExecuteClick(Sender: TObject); procedure btnClearClick(Sender: TObject); private { Private declarations } public { Public declarations } end;var FrmMain: TFrmMain;implementation{$Rdfm.dfm}M. : string);begin mmMsg.Lines.Add('[ admin ] - [' + v_Str + '] - [' + FormatDateTime('YYYY-MM-DD hh:mm:ss zzz', Now()) + ']');end; procedure TFrmMain.btnExecuteClick(Sender: TObject);var sInfo: TStartupInfo; pInfo: TProcessInformation; cmdLine: string; exitCode: Cardinal;begin MsgDsp('初始化參數'); cmdLine := 'C:/Program Files/7-Zip/7zFM.exe'; FillChar(sInfo, sizeof(sInfo), #0); sInfo.cb := SizeOf(sInfo); sInfo.dwFlags := STARTF_USESHOWWINDOW; sInfo.wShowWindow := SW_NORMAL; MsgDsp('參數初始化完成,啟動WinExec調試'); //CreateProcess用來啟動進程, 進程啟動後, 會填寫TProcessInformation這個結構, //此時程式阻塞到該句柄中,等待句柄的程序結束或逾時if not CreateProcess(nil, pchar(cmdLine), nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, sInfo, pInfo) then begin MsgDsp('WinExec調試失敗! '); MessageBox(Application.handle, '指定程式啟動失敗!', '錯誤', MB_OK or MB_ICONSTOP); end else begin //等待指定句柄的進程結束或逾時WaitForSingleObject(pInfo.hProcess, INFINITE); GetExitCProcessProcess( pInfo.hProcess, exitCode); MsgDsp('WinExec調試成功!'); end;end;procedure TFrmMain.btnClearClick(Sender: TObject);begin mmMsg.Clear;end;end.
運行效果如下:
總結
以上所述是小編給大家介紹的Delphi 呼叫外部程式並阻塞到外部程式中,希望對大家有所幫助,如果大家有任何疑問請給我留言,小編會及時回覆大家的。在此也非常感謝大家對武林網網站的支持!
如果你覺得本文對你有幫助,歡迎轉載,煩請註明出處,謝謝!