各位大大：

以下是 我的 執行緒程式碼：

[code delphi]

type
TScanThread = class(TThread)
private
BmpTs:TBitmap;
FileN:String;
{ Private declarations }
protected
procedure Execute; override;
Public
constructor create(g_bmpTs:TBitmap;g_FileN:String);
end;


constructor TScanThread.create(g_bmpTs:TBitmap;g_FileN:String);
//var
// jpg: TJpegImage;
begin
inherited create(false);

Priority:=tpTimeCritical; //設定執行權限

FreeOnTerminate:=True;

BmpTs:=g_bmpTs;
FileN:=g_FileN;
end;
procedure TScanThread.Execute;
var
jpg1: TJpegImage;
begin
try

Jpg1:=TJpegImage.Create();
Jpg1.Assign(bmpTs);
jpg1.CompressionQuality := 65;

DeleteFile('c:/' FileN '.jpg');
jpg1.SaveToFile('c:/' FileN '.jpg');

finally
jpg1.Free;
end;
end;



[/code]

執行上列執行緒 會出現 下列 二個 錯誤訊息：
一、
Project ScanRead.exe raised exceptio class EInvalidGraphic message
'Bitmap image is not valid'. Process stopped.
二、
Project ScanRead.exe raised exceptio class EAccess Violation with message 'Access violation at address 00403C18 in module 'Scan Read.exe'. read of address 00D7BFDC'. Process stopped. Use Step or Run to continue.

請教各位大大，如何解決這個問題？

處理的 圖檔大小 2024x2848 bmp格式約 11Mb，
執行緒設定最高權限 Priority:=tpTimeCritical; 出現上列錯誤訊息的的時間 會比較 慢出現 約 130張 出現錯誤訊息
執行緒設定一般權限 Priority:=tpNormal; 出現上列錯誤訊息的的時間 會比較 快出現 約 20張 出現錯誤訊息

補充一
另外將執行緒設定最高權限 Priority:=tpTimeCritical;
有時會出現 下列 錯誤訊息 ，我可以不要理會這個 錯誤訊息嗎？

Project ScanRead.exe raised exceptio class EOutOfResources with message
'Out of system resources'. Process stopped.Use Step or Run to continue.

------
學藝不精 謝多多指教

編輯記錄