نقل قول نوشته شده توسط seyed_farid مشاهده تاپیک
دوستان کسی کار نکرده به این شکل؟
چرا سایت اینقدر سوت و کور شده
سلام

از این کد استفاده کنید



uses

  Vcl.Imaging.pngimage;



{$R *.dfm}



procedure TForm1.BitBtn1Click(Sender: TObject);

Var

  Stream: TStream;

  MyPng: TPngImage;

  gv_res: THandle;

begin

  gv_res := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + 'DllProject.dll')); { Load DLL }

  Stream := TResourceStream.Create(gv_res, 'SIGN', 'PNG');

  Try

    MyPng := TPngImage.Create;

    Try

      MyPng.LoadFromStream(Stream);

      Image1.Picture.Assign(MyPng);

    Finally

      MyPng.Free;

    end;

  Finally

    Stream.Free;

  end;

end;


منبع :
https://www.programmersought.com/article/87751312991/