Nach Hause

Forum: "Haupt";
Durchsuchen Sie die gesamte Website: delphimaster.net;
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];



Nach unten

Laden Sie die JPG-Datei in das Bild hoch


Angel S (2001-12-15 23:04) [0]

Kann ich ein Bild aus einer Ressourcendatei in Bild in JPG hochladen ...
Wenn ja wie?



Virtualik (2001-12-15 23:53) [1]

Prozedur LoadJPEGFromRes (TheJPEG: string; var ThePicture: TPicture); var ResHandle: THandle; MemHandle: THandle; MemStream: TMemoryStream; ResPtr: PByte; ResSize: Longint; JPEGImage: TJPEGImage; beginnen ResHandle: = FindResource (hInstance, PChar (TheJPEG), "JPEG"); MemHandle: = LoadResource (hInstance, ResHandle); ResPtr: = LockResource (MemHandle); MemStream: = TMemoryStream.Create; JPEGImage: = TJPEGImage.Create; ResSize: = SizeOfResource (hInstance, ResHandle); MemStream: SetSize (ResSize); MemStream.Write (ResPtr ^, ResSize); FreeResource (MemHandle); MemStream.Seek (0, 0); JPEGImage.LoadFromStream (MemStream); ThePicture.Assign (JPEGImage); JPEGImage.Free; MemStream.Free; ende



Angel S (2001-12-16 13:00) [2]

Gibt den JPEG-Fehler #41 aus
Was könnte der Fehler sein?



Methodius (2001-12-16 22:42) [3]

Ich bringe ein Stück Code aus meinem Programm, wo ich ein Bild aus der Ressourcendatei Myres.rc mit einer Jpeg-Datei herausziehe:

Prozedur TMyForm.FormCreate (Sender: TObject);
var temp_jpeg: TJPEGImage;
ResStream: TResourceStream;
beginnen
.....
temp_jpeg: = TJpegImage.Create;
ResStream: = TResourceStream.CreateFromID (Instanz, 1, RT_RCDATA);
temp_jpeg.LoadFromStream (ResStream);
.....
temp_jpeg.Free;
ResStream.Free;
.....
end;

Ich würde mich freuen, wenn ich mit irgendetwas helfen würde.

PS
Inhalt von Myres.rc

1 RCDATA "Myimage.jpg"
.......



Angel S (2001-12-17 16:52) [4]

Ich verbinde die kompilierte Ressourcendatei (res), kann aber keine Verbindung herstellen, weil Er sagt, dass er keine 16-Bit-Ressourcendateien unterstützt.
Ich verbinde mich mit
{$ R Myres.rc}




Angel S (2001-12-17 16:53) [5]

Wenn MyRes.res verbunden ist, wird in dieser Zeile ein Fehler angezeigt:
ResStream: = TResourceStream.CreateFromID (Instanz, 1, RT_RCDATA);



Dimka Maslov (2001-12-17 17:02) [6]

In der Form
Prozedur TAboutForm.FormCreate (Sender: TObject); var RS: TResourceStream; JP: TJPEGImage; beginnen RS: = null; JP: = null; versuche es RS: = TResourceStream.Create (hInstance, "ABOUT", "JPEG"); JP: = TJPEGImage.Create; JP.LoadFromStream (RS); JP.DIBNeeded; Image.Picture.Bitmap.Assign (JP); endlich RS.Free; JP.Free; ende ende

In rc datei
ÜBER JPEG ABOUT.JPG

Sie müssen dem Projekt über das Menü Projekt> Zu Projekt hinzufügen eine RC-Datei hinzufügen



Angel S (2001-12-18 19:58) [7]

Alles hat funktioniert ... Vielen Dank !!!





Forum: "Haupt";
Durchsuchen Sie die gesamte Website: delphimaster.net;
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];



nach oben

Nach Hause

Top.Mail.Ru Yandeks.Metrika













Speicher: 0.76 MB
Zeit: 0.032 c
14-22402
dunklere
2001-11-08 12:26
2002.01.08
Ich suche einen Mann mit einem Spitznamen


14-22389
sudiv
2001-11-08 15:38
2002.01.08
CashFiesta


1-22124
aufgeben
2001-12-18 02:16
2002.01.08
Tags jpg bmp it.d.


4-22506
Gluka
2001-11-06 00:16
2002.01.08
Wie man eine * .dll-Datei in einer Exe-Datei stoppt?


4-22504
Kuss
2001-09-11 11:11
2002.01.08
WinExec neponyatka





Afrikanisch albanisch Arabic Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch griechisch haitian Creole hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch rumänisch Russisch serbisch Slovak Slowenisch Spanisch swahili Swedish Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch