![]() |
Overbyte ICS und AnswerStream
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:
Delphi-Quellcode:
Aber nun ist halt nur das Bild selber sichtbar.
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; 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? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:26 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz