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.83 MB
Ora: 0.029 c
1-22176
Serg5
2001-12-20 14:57
2002.01.08
Di nuovo, il problema con il testo: visualizzo Image1.Canvas.TextOut, ma sotto il testo stesso è un corridore bianco. È possibile se non si rimuove (basta mettere le lettere), quindi almeno rendere il corridore nero.


3-21980
Aleksandr
2001-12-05 13:26
2002.01.08
Come creare una stringa di connessione TADOConnection nel programma?


1-22214
T2
2001-12-16 07:15
2002.01.08
BMP 2 RichEdit


14-22342
spesso
2001-11-05 18:52
2002.01.08
Concorso! Wallpaper per il gioco (sito) Sea Fight!


1-22242
aspro
2001-12-14 11:00
2002.01.08
POP3





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 Italiano 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ù
Английский Francese tedesco italiano portoghese russo spagnolo