Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Down

Վերբեռնեք jpg ֆայլը պատկերին Գտնել նմանատիպ մասնաճյուղեր


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

Հնարավո՞ր է պատկերել Jpg- ում պատկերը ռեսուրսային ֆայլից Image- ում ...
Եթե ​​հնարավոր է, ապա ինչպե՞ս ???



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

Ընթացակարգի բեռնվածություն JPEGFromRes (TheJPEG: string; var ThePicture: TPicture); var ResHandle: Thandle; MemHandle: Thandle; MemStream: TMemoryStream; ResPtr: PByte; Չափափոխել չափը ՝ Longint; JPEGImage: TJPEGImage; սկսվում է ResHandle. = FindResource (hInstance, PChar (TheJPEG), "JPEG"); MemHandle. = LoadResource (hInstance, ResHandle); ResPtr: = LockResource (MemHandle); MemStream: = TMemoryStream.Create; JPEGImage: = TJPEGImage.Create; Չափափոխել չափը. = 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; վերջ;



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

Նետում է JPEG սխալ #41
Ի՞նչը կարող է լինել սխալը ???



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

Ես իմ ծրագրից բերում եմ մի կտոր կոդ, որտեղ Jpeg ֆայլով նկար եմ ստանում Myres.rc ռեսուրսային ֆայլից.

ընթացակարգ TMyForm.FormCreate (Ուղարկող ՝ TObject);
var temp_jpeg: TJPEGImage;
ResStream: TResourceStream;
սկսել
.....
temp_jpeg: = TJpegImage.Create;
ResStream. = TResourceStream.CreateFromID (HInstance, 1, RT_RCDATA);
temp_jpeg.LoadFromStream (ResStream);
.....
temp_jpeg.Free;
ResStream.Free;
.....
վերջը.

Ես ուրախ կլինեի, եթե ինչ-որ բանի օգնեի:

PS
Myres.rc ֆայլի պարունակությունը

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



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

Ես միացնում եմ կազմված ռեսուրսների ֆայլը (res) և rc- ն չի կարող միանալ, քանի որ նա ասում է, որ չի աջակցում 16 բիթ ռեսուրսների ֆայլերը….
Ես կապում եմ ՝ օգտագործելով
$ R Myres.rc



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

MyRes.res- ին միացնելիս սխալ է հայտնվում այս տողում.
ResStream. = TResourceStream.CreateFromID (HInstance, 1, RT_RCDATA);



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

Համազգեստով
կարգը TAboutForm.FormCreate (Ուղարկող ՝ TObject); var RS: TResourceStream; JP: TJPEGImage; սկսվում է RS: = զիլ; JP: = զիլ; փորձիր RS: = TResourceStream.Create (hInstance, "About", "JPEG"); JP: = TJPEGImage.Create; JP.LoadFromStream (RS); JP.DIBNeeded; Image.Picture.Bitmap.Aignign (JP); վերջապես RS.Free; JP.Free; վերջ; վերջ;

Rc ֆայլում
JPEG ՄԱՍԻՆ.JPG Մասին

Անհրաժեշտ է rc ֆայլը նախագծին ավելացնել Նախագծի> Ավելացնել Ծրագրին



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

Ամեն ինչ աշխատում էր ... Շատ շնորհակալություն !!!



Էջեր: 1 ամբողջ ճյուղը

Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Up





Հիշողություն `0.57 ՄԲ
Ժամանակը `0.025 գ
1-22265
Ser_Kham1- ը
2001-12-17 16:10
2002.01.08
ListBox- ը


7-22431
Փաշա
2001-09-21 15:58
2002.01.08
Ինչպես հեռացնել ձայնային քարտից, ալիքի ձեւը:


1-22052
avr555
2001-12-17 19:54
2002.01.08
Քաշեք եւ թողեք բաղադրիչը


1-22140
Serg5- ը
2001-12-20 10:17
2002.01.08
Խնդիրն այն է, թե հնարավոր է նվազեցնել տառատեսակը 4 պիքսել, այն փոխվում է, փոխվում է (ծրագիրը չի երդում տալիս), բայց էկրանին (Canvas.Font) այն դեռ ցուցադրում է 8 (առավելագույնը նվազագույնը)


7-22434
tomas2001
2001-09-24 14:04
2002.01.08
Ֆայլի փոխանցում մոդեմի միջոցով





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский