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]


Procedure LoadJPEGFromRes(TheJPEG : string; var ThePicture : TPicture);
var
ResHandle : THandle;
MemHandle : THandle;
MemStream : TMemoryStream;
ResPtr : PByte;
ResSize : Longint;
JPEGImage : TJPEGImage;
begin
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;
end;



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;
begin
RS:=nil; JP:=nil;
try
RS:=TResourceStream.Create(hInstance, "ABOUT", "JPEG");
JP:=TJPEGImage.Create;
JP.LoadFromStream(RS);
JP.DIBNeeded;
Image.Picture.Bitmap.Assign(JP);
finally
RS.Free;
JP.Free;
end;
end;


In der RC-Datei
ABOUT 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.56 MB
Zeit: 0.025 c
6-22267
wHammer
2001-09-28 15:00
2002.01.08
Es wäre sehr praktisch ...


1-22080
Delphimun
2001-12-18 17:11
2002.01.08
Wie lade ich den Cursor von der Ressource und speichere ihn dann auf der Festplatte?


7-22443
Masik
2001-09-27 13:02
2002.01.08
PopUp-Menü Y2k


3-21956
Sevostyanov Igor
2001-12-05 17:56
2002.01.08
SHUTDOWN SOFORT programmgesteuert ausführen


1-22100
Avol
2001-12-15 18:29
2002.01.08
Wie erstellt man in Delphi eine Tabelle mit Datensätzen für das Spiel?





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesisch (traditionell) 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 Italienisch 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