Otwieranie obrazka i wrzucanie do timage

0

chcialbym otworzyc plik np. bmp ale za pomocą

blockread

to co ja zrobiłem mozecie tutaj znalezc: - niestety to nie dziala

var
f : file;
l1, l2 : string[10];
width, height : string[5];
stream : tmemorystream;
file_size : integer;
begin
stream := tmemorystream.create;
assignfile(f,filename);
reset(f,1);
blockread(f,l1,sizeof(l1));
blockread(f,l2,sizeof(l2));
blockread(f,width,sizeof(width));
blockread(f,height,sizeof(height));
blockread(f,file_size,sizeof(file_size));
stream.Size := file_size;
BlockRead(F,Stream, stream.size);
closefile(f);
image.Picture.Bitmap.LoadFromStream(stream);
stream.free;
end;

0

Nie działa, bo nie da się ustawić size w TStream. Sorry źle ci powiedziałem {wstyd}

Ale jak się tak przyjrzałem twojemu listingowi to się zastanowiłem po co używasz TStream? Przecież możesz od razu odczytać do TBitmap!--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

Pomoc do Delphi po polsku. http://www.4programmers.net/forum/index.php?action=show&id=21335&c=2

Oficjalny kanał IRC serwisu 4programers:
serwer: warszawa.ircnet.pl sieć: POLNet kanał: #4programmers.net

1 użytkowników online, w tym zalogowanych: 0, gości: 1