Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

Laden Sie die JPG-Datei in das Bild hoch Finden Sie ähnliche Zweige


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

Kann ich ein Bild aus einer Ressourcendatei in Image auf 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; beginne 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 Fehler JPEG-Fehler #41
Was könnte der Fehler sein ???



Мефодий   (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:

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

Ich würde mich freuen, wenn ich bei 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), aber RC kann keine Verbindung herstellen, weil Er sagt, dass er keine 16-Bit-Ressourcendateien unterstützt.
Verbinden Sie mit
{$ R Myres.rc}



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

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



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

In der Form
procedure TAboutForm.FormCreate (Sender: TObject); var RS: TResourceStream; JP: TJPEGImage; beginne RS: = Null; JP: = Null; versuchen Sie 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 der RC-Datei
ÜBER JPEG ABOUT.JPG

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



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

Alles hat funktioniert ... Vielen Dank !!!



Seiten: 1 ganze Branche

Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben









Speicher: 0.57 MB
Zeit: 0.032 c
1-22191
stalker_boss
2001-12-16 02:50
2002.01.08
Klingen


6-22303
maxi
2001-10-11 18:03
2002.01.08
Der DCOM-Client sieht den DCOM-Server nicht auf verschiedenen Computern.


1-22157
Flagman
2001-12-20 13:55
2002.01.08
Finden Sie zwei Wagenrückläufe in einer Reihe.


1-22155
Kunst
2001-12-20 16:32
2002.01.08
Sperren Sie den Ordner!


1-22256
Gehender Fragebogen
2001-12-15 08:50
2002.01.08
Werte aus der INI-Datei lesen





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Niederländisch Englisch estnisch Philippinisch Finnisch Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegisch
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Schwedisch 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