casa
Top.Mail.Ru Yandeks.Metrika
Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

giù

Carica il file jpg sull'immagine Trova rami simili


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

Posso caricare un'immagine su Jpg da un file di risorse in Image ...
Se sì, come ???



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

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



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

Fornisce errore Errore JPEG #41
Quale potrebbe essere l'errore ???



Мефодий   (2001-12-16 22:42) [3]

Porto un pezzo di codice dal mio programma, dove estraggo un'immagine dal file di risorse Myres.rc con un file Jpeg:

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

Sarei felice se mi aiutassi con qualsiasi cosa.

PS
Contenuto di Myres.rc

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



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

Collego il file di risorse compilato (res), ma rc non può connettersi, perché dice che non supporta i file di risorse 16-bit ....
Connetti usando
{$ R Myres.rc}



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

quando MyRes.res è connesso, viene visualizzato un errore in questa riga:
ResStream: = TResourceStream.CreateFromID (HInstance, 1, RT_RCDATA);



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

In forma
procedura TAboutForm.FormCreate (Sender: TObject); var RS: TResourceStream; JP: TJPEGImage; iniziare RS: = nil; JP: = nil; provare RS: = TResourceStream.Create (hInstance, "ABOUT", "JPEG"); JP: = TJPEGImage.Create; JP.LoadFromStream (RS); JP.DIBNeeded; Image.Picture.Bitmap.Assign (JP); infine RS.Free; JP.Free; fine; fine;

Nel file rc
INFORMAZIONI SU JPEG ABOUT.JPG

È necessario aggiungere un file rc al progetto tramite il menu Progetto> Aggiungi al progetto



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

Tutto ha funzionato ... Grazie mille !!!



Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra









Memoria: 0.57 MB
Ora: 0.026 c
1-22204
Dmitriy (nuovo)
2001-12-13 19:37
2002.01.08
il codice non crea più `file 273 in win2000


14-22376
Nuovo di zecca
2001-11-07 01:11
2002.01.08
aiutare qualcuno a farlo


1-22235
DDDeN
2001-12-17 06:47
2002.01.08
Заставка


1-22194
Arte
2001-12-15 09:28
2002.01.08
Domanda Millet!


4-22495
singhiozzo
2001-11-05 09:57
2002.01.08
Nozioni di base su WinAPI





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Lezioni Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Inglese Francese tedesco italiano portoghese russo spagnolo