Overbyte ICS und AnswerStream

**schwa226**

Hi,

ich bin gerade dabie mich in den Web Server von Overbyte einzuarbeiten.

Über diese Funktion kann ich schon einmal ein Jpeg im Browser anzeigen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TUrlHandlerTest.Execute;

var

  JpegImg   : TJPEGImage;

  BitMapImg : TBitmap;

begin

  DocStream := TMemoryStream.Create;

  JpegImg := TJPEGImage.Create;

  try

     BitMapImg := TBitMap.Create;

     try

         BitMapImg.Width  := 64;

         BitMapImg.Height := 32;

         BitMapImg.Canvas.Pen.Color   := clBlack;

         BitMapImg.Canvas.Brush.Color := clGray;

         BitMapImg.Canvas.RoundRect(0, 0,

             BitMapImg.Width - 1, BitMapImg.Height - 1, 16, 16);

         BitMapImg.Canvas.Font.Name  := 'arial';

         BitMapImg.Canvas.Font.Size  := 14;

         BitMapImg.Canvas.Font.Color := clWhite;

         BitMapImg.Canvas.TextOut(

  (BitMapImg.Width  - BitMapImg.Canvas.TextWidth('test1'))  div 2 - 1,

  (BitMapImg.Height - BitMapImg.Canvas.TextHeight('test1')) div 2 - 1,

            'test1');

         JpegImg.Assign(BitMapImg);

         JpegImg.SaveToStream(DocStream);

     finally

         BitMapImg.Destroy;

     end;

  finally

     JpegImg.Destroy;

  end;

  AnswerStream('', 'image/jpeg', NO_CACHE);

  Finish;

end;

Aber nun ist halt nur das Bild selber sichtbar.

Ich habe aber eine HTML Seite worin ich ein Bild anzeigen will. Geht das auch?
Oder muss ich das Jpeg zuerst auf der Festplatte speichern und dann ein Image Link im HTML einbauen?

Overbyte ICS und AnswerStream

Overbyte ICS und AnswerStream

Forumregeln