PDA

Visualizza la versione completa : [DELPHI] Creazione pagina HTML con immagine rimpicciolita


domk
06-12-2007, 15:41
ecco il codice...questo crea una pagina html stampando un'immagine rimpicciolita.
Volevo sapere come faccio a crerne pių di una...se infatti eseguo lo stesso procedimento
mettendo una seconda immagine in un nuovo buffer memstr2 se alla fine scrivo response.contentstream:=memstr+memstr2 mi
da errore. Allora vi chiedo:Come si a ad accodare ad uno stream di immagini

var f,g:real;
b:integer;
image1,image2:timage;
memstr:tmemorystream;
jpeg:tjpegimage;

begin
memstr:=tmemorystream.Create;
jpeg:=tjpegimage.Create;

image1:=timage.Create(nil);
image2:=timage.Create(nil);
image1.Picture.loadfromfile('C:\WINDOWS\Bolle di sapone.bmp');
image1.Height:=image1.Picture.Height;
image1.Width:=image1.picture.Width;
image2.Height:=120;
image2.Width:=280;

if (image1.Height div image2.Height)<>0 then
begin

f:=image1.Height / image2.Height;
g:=image1.Width/f;
b:=round(g);
image2.Width:=b;

image2.Canvas.StretchDraw(image2.Canvas.ClipRect,i mage1.Picture.Graphic);
jpeg.assign(image2.Picture.Bitmap);
jpeg.SaveToStream(memstr);
memstr.Position:=0;
end;

response.ContentStream:=memstr;
jpeg.Free;
end;

alka
08-12-2007, 16:28
Io onestamente non ho capito cosa stai cercando di fare, in primo luogo, e poi vi sono variabili e oggetti il cui tipo di appartenenza non č chiaro, cosė come non č chiaro qual č il contenuto di questo Stream e come sono organizzati i dati in generale.

Ma partiamo dall'inizio: qual č lo scopo, l'obiettivo, il traguardo che si vuole raggiungere? :master:

domk
09-12-2007, 10:45
dovrei caricare in uno stream delle immagini rimpicciolite...il problema č quello che se provo a caricarne pių di una alla fine ottengo solo l'ultima immagine.Questo penso perchč non riesco ad accodare pių di un immagine in uno stream...

Loading