Komprimere billedefiler

Delphi har en TJPGStream du kan bruge.

Kig på ISAPI ( web ) Demo\'en for eks. på brug

For at bruge jpg\'er i delphi skal du bruge (og dermed tilføje i uses) den der jpegs

Så har du mulihed for at bruge en type der hedder tjpeg og dertil kan du assigne fx en bitmap.

Ingen som har lidt kode til ovenstående ?

Jo da *S*, dette er fra det eks. jeg omtalte :


var
  Jpg: TJpegImage;
  S: TMemoryStream;
  B: TBitmap;
begin
  Jpg := TJpegImage.Create;
  try
    B := TBitmap.Create;
    try
      B.Assign(BioLifeGraphic);
      Jpg.Assign(B);
    finally
      B.Free;
    end;
    S := TMemoryStream.Create;
    Jpg.SaveToStream(S);
    S.Position := 0;
    Response.ContentType := \'image/jpeg\';
    Response.ContentStream := S; // do not free the stream because the response
                                // object will handle that task.
  finally
    Jpg.Free;
  end;
end;

/Martin

morten_s >> har du overvejet og fortælle hvad det er du ikke forstår ???

martinlind >>
Nu er det ikke alle der har tid/mulighed for at komme på nettet hver dag (fx mig)

poull >> Nej men han har været på og afvise mit svar, så havde det jo været smart at spørge igen samtidig. *S*

Jo det vil jeg så gerne give dig ret i