写RC文件,
JPEGINDEX RCDATA YourPic.JPG
写完后用Brcc32编译这个rc文件。

解决方案 »

  1.   

    把你的E-Mail给我吧,我给你一个例子([email protected]);
      

  2.   


    1、MyRes.rc文件,内容如下:
        sample_jpg   JPEG       sample.jpg  用Brcc32编译MyRes.rc,生成MyRes.Res
    2、在你要使用该资源的程序源文件中添加:{$R MyRes.Res}或{$R *.Res}3、引用代码:function GetResourceAsJpeg(const ResName: string): TJPEGImage;
    var
      Stream: TResourceStream;
    begin
      Stream := TResourceStream.Create(hInstance, ResName, 'JPEG');
      try
        Result := TJPEGImage.Create;
        Result.LoadFromStream(Stream);
      finally
        Stream.Free;
      end;
    end;