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.83 MB
Zeit: 0.032 c
3-21965
Serge
2001-12-05 06:13
2002.01.08
FoxPro-Indizierung


1-22192
Träumer
2001-12-15 19:34
2002.01.08
Ab und zu nur Sekunden ziehen und übertragen


4-22483
Stropal
2001-11-03 10:57
2002.01.08
Funktionsparameter


1-22038
Dima ~
2001-12-18 17:53
2002.01.08
Wie übertrage ich die Befehlszeile in die gestartete Datei?


14-22409
Vadim
2001-11-12 13:56
2002.01.08
Oder vielleicht schlagen wir uns nicht gegenseitig die Hände?





Afrikanisch Albanien Arabisch 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 Slovakisch Slowenisch Spanisch Suaheli 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