Hallo,
also das mit der Procedure funktioniert jetzt soweit nur das immer noch die Fehlermeldung kommt das die Resource nicht gefunden wurde
hier mal der Quellcode komplett
Delphi-Quellcode:
unit testen;
interface
uses
JPEG, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 =
class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
procedure LoadPictureFromJpgResource(picture : TPicture;
const AResName:
string);
var
Form1: TForm1;
implementation
{$R *.dfm}
{$R bilder.RES}
procedure LoadPictureFromJpgResource(picture : TPicture;
const AResName:
string);
var
rs: TResourceStream;
jpg: TJPEGImage;
begin
rs := TResourceStream.Create(HInstance,AResName,RT_RCDATA);
jpg := TJPEGImage.Create;
try
jpg.LoadFromStream(rs);
picture.Assign(jpg);
finally
jpg.Free;
rs.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadPictureFromJpgResource(Image1.Picture,'
TEST2');
end;
end.
der Code von der bilder.RC datei die ich dann per drag and drop in die BRCC32.exe schieb und eine bilder.RES rausbekommen
Code:
TEST1 RT_RCDATA "C:\Users\Public\Documents\delphi\test\test.jpg"
TEST2 RT_RCDATA "C:\Users\Public\Documents\delphi\test\images.jpg"
warum kann er die Resource nicht finden habe ich beim einbinden was falsch gemacht?
oder schon bei der Erstellung der bilder.RES?
der Rest würde denk ich funktionieren
Vielen Dank
PS: ich bin echt positiv überrascht das ihr so viel geduld habt... und mir helft
