Konwersja jpg do bitmapy 32 bitowej

Widzisz archiwalną wersję wątku "Konwersja jpg do bitmapy 32 bitowej" z forum pl.comp.lang.delphi

Krzysiek - 27 Paź 2004, 08:53

Witam serdecznie,
Mam straszny problem, miałem wirusa na komputerze i się masa danych
pokasowała - nie udało mi się przekopiować mioch podstawowych procedurek z
których potem składam programy:(.
Nie pamiętam procedury do odkodowywania pliku jpg do formatu bitmapy 32
bit/4 bajty na każdy pixel.
Czy możecie mi pomóc? i skopiować ze swoich zasobów najprostrzą sprawną
procedurkę?- najlepiej razem z nazwami modułów których używa.
I jeszcze jedno- jak skopiować plik mając ścieżkę dostępu do niego?
Pozdrawiam i sorki ,że zawracam głowę ale bardzo potrzebuję tych procedur a
pamiętam ,że ostatnim razem tydzień szukałem potrzebnych danych.
p.s mam delphi 7
straciłem poprostu program który analizował mi zdjęcia satelitarne meteosata
7 i piszę od nowa...

Zeman - 27 Paź 2004, 09:45




Witam serdecznie,
Mam straszny problem, miałem wirusa na komputerze i się masa danych
pokasowała - nie udało mi się przekopiować mioch podstawowych procedurek z
których potem składam programy:(.
Nie pamiętam procedury do odkodowywania pliku jpg do formatu bitmapy 32
bit/4 bajty na każdy pixel.
Czy możecie mi pomóc? i skopiować ze swoich zasobów najprostrzą sprawną
procedurkę?- najlepiej razem z nazwami modułów których używa.
I jeszcze jedno- jak skopiować plik mając ścieżkę dostępu do niego?
Pozdrawiam i sorki ,że zawracam głowę ale bardzo potrzebuję tych procedur
a
pamiętam ,że ostatnim razem tydzień szukałem potrzebnych danych.
p.s mam delphi 7
straciłem poprostu program który analizował mi zdjęcia satelitarne
meteosata
7 i piszę od nowa...


uses JPeg;

var
jpg : TJpegImage;

.......
jpg:= TJpegImage.Create;
jpg.LoadFromFile('c:\test.jpg');
Image1.Picture.Bitmap.Assign(jpg);
jpg.Free;

Bodajze przyklad jest w samym Delphi. i napewno w niejednym FAQ

Pozwiodronka,
Zeman.

Krzysiek - 27 Paź 2004, 10:17


| Witam serdecznie,
| Mam straszny problem, miałem wirusa na komputerze i się masa danych
| pokasowała - nie udało mi się przekopiować mioch podstawowych procedurek
z
| których potem składam programy:(.
| Nie pamiętam procedury do odkodowywania pliku jpg do formatu bitmapy 32
| bit/4 bajty na każdy pixel.
| Czy możecie mi pomóc? i skopiować ze swoich zasobów najprostrzą sprawną
| procedurkę?- najlepiej razem z nazwami modułów których używa.
| I jeszcze jedno- jak skopiować plik mając ścieżkę dostępu do niego?
| Pozdrawiam i sorki ,że zawracam głowę ale bardzo potrzebuję tych
procedur
a
| pamiętam ,że ostatnim razem tydzień szukałem potrzebnych danych.
| p.s mam delphi 7
| straciłem poprostu program który analizował mi zdjęcia satelitarne
meteosata
| 7 i piszę od nowa...

uses JPeg;

var
jpg : TJpegImage;

.......
jpg:= TJpegImage.Create;
jpg.LoadFromFile('c:\test.jpg');
Image1.Picture.Bitmap.Assign(jpg);
jpg.Free;

Bodajze przyklad jest w samym Delphi. i napewno w niejednym FAQ

Pozwiodronka,
Zeman.


Wiem - to znam ale to konwertuje do bitmapy o głębi kolorów 8 bitów- bo dla
tego obrazka co ściągam to wystarcza by oddać obraz ale ... potrzebuję
bitmapy 32 bity :(
Czyli na każdy pixel nie 1 bajt a 4....

Krzysiek - 27 Paź 2004, 10:23


| Witam serdecznie,
| Mam straszny problem, miałem wirusa na komputerze i się masa danych
| pokasowała - nie udało mi się przekopiować mioch podstawowych procedurek
z
| których potem składam programy:(.
| Nie pamiętam procedury do odkodowywania pliku jpg do formatu bitmapy 32
| bit/4 bajty na każdy pixel.
| Czy możecie mi pomóc? i skopiować ze swoich zasobów najprostrzą sprawną
| procedurkę?- najlepiej razem z nazwami modułów których używa.
| I jeszcze jedno- jak skopiować plik mając ścieżkę dostępu do niego?
| Pozdrawiam i sorki ,że zawracam głowę ale bardzo potrzebuję tych
procedur
a
| pamiętam ,że ostatnim razem tydzień szukałem potrzebnych danych.
| p.s mam delphi 7
| straciłem poprostu program który analizował mi zdjęcia satelitarne
meteosata
| 7 i piszę od nowa...

uses JPeg;

var
jpg : TJpegImage;

.......
jpg:= TJpegImage.Create;
jpg.LoadFromFile('c:\test.jpg');
Image1.Picture.Bitmap.Assign(jpg);
jpg.Free;

Bodajze przyklad jest w samym Delphi. i napewno w niejednym FAQ

Pozwiodronka,
Zeman.


Nie będzie to potrzebne(32 bity-dla mnie też dużo) gdy wiesz jak zrobić aby
programowo umieścić plik wynikowy bmp 8 bitów który zapisuję :
Image1.Picture.SaveToFile('c:\test.bmp');
umieścić na pulpicie jako tapetę rozciągniętą... :(
Nie potrafię sobie z tym poradzić programowo używając bmp 8 bit gdy ekran
mam ustwiony na 32 bit i tak ma być.

Zeman - 27 Paź 2004, 14:25

TBitmap.PixelFormat + F1

Pozwiodronka,
Zeman.

talt...@nospam.wp.pl - 1 Lis 2004, 07:10

Tak wogole to jest Pan masochista?
IMHO najpierw nalezy sprobowac odzyskac dane (google: data rescue, disk
rescue), a dopiero potem myslec nad pisaniem wszystkiego od nowa. Ostatnio
probowalem demka programu Get Data Back for FAT.
Wydaje sie dzialac dobrze. Niestety nie udalo mi sie odzyskac pozadanych
danych, gdyz po zainstalowaniu systemu akurat te kilka kB, ktore chcialem
odzyskac zostalo nadpisane.

Pozdrawiam,
Talthen

'Rozjaśnianie' bitmapy!
Jeszcze raz o konwersji TDateTime dla innych srodowisk (np.PHP)
Kolry pixeli i ich zmiana. Konwersja kolorów!
Gdzie mogę znaleźć jakieś zestawy glyph (bitmap) dla Delphi ?
  • slowacja dane
  • jak leczyc lokiec tenisisty
  • alchemiasa
  • blokada 18 lat
  • kaszel suchy chrypka
  • biblijne zabawy
  • programy do darmowego
  • chrysler 300m komputer awaria
  • typer fifa resources sezon 2
    • Spis tematów z grup dyskusyjnych | Indeks