Не работает в WinCE5.0 Image1.Picture.LoadFromFile

[alex300474]

При запуске этой процедуры не выводится изображение, не в эмуляторе:
Microsoft Device Emulator V.2, не в устройстве.

( WinCE 5.0, Lazarus v.0.9.28.2 [FPC 2.2.4] )

Код: Выделить всё


uses
  Windows, Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ExtCtrls, Menus, ActnList, ComCtrls, EditBtn, Spin ,DB;
.....
.....
procedure TForm1.Button8Click(Sender: TObject);
begin
//form1.Image1.Picture.LoadFromFile('\Storage Card\1.JPG');
SelfPath := trim( ExtractFilePath(ParamStr(0)) )+'8.BMP';
form1.Image1.Picture.LoadFromFile( SelfPath );
Form1.Caption:= SelfPath;
end; 


В чём может быть причина ?
Заранее благодарен, Алексей.

[FreeBSD-ier]

Во первых - SelfPath := trim( ExtractFilePath(ParamStr(0)) )+'8.BMP';
Здесь перед 8.bmp надо поставить \ (обратный слэш).
Во вторых - я сам эту тему уже поднимал, можешь посмотреть в предыдущей теме в этой ветке "Bitmap.SaveToFile и формат BMP-файла" - вот ссылка viewtopic.php?f=5&t=6541

[kaigerda]

Код: Выделить всё

SelfPath := trim( ExtractFilePath(ParamStr(0)) )+'8.BMP';

замените на

Код: Выделить всё

SelfPath := IncludeTrailingBackslash(ExtractFileDir(ParamStr(0))+'8.BMP';