Einzelnen Beitrag anzeigen

shifter

Registriert seit: 2. Jan 2005
175 Beiträge
 
Delphi 2007 Enterprise
 
#22

Re: IdHTTPServer Bilder mit Text verschicken ?!?

  Alt 30. Dez 2008, 17:40
So sieht die ganze Test geschichte aus :
Delphi-Quellcode:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
Var html, p : String;
begin
  p := 'E:\DELPHI\° DELPHI 2007 °\WEB SERVER TEST\test.jpg';
  html := '<Table>' +
            '<tr><td>' +
            '[b]Hallo Jezt geht los[/b]' +
            '</td></tr></table>';
// '[img]'+p+'[/img]';

  If ARequestInfo.Document ='/'
    Then AResponseInfo.ContentText := html
    Else AResponseInfo.ContentStream := tfilestream.Create(p,fmopenread);


end;
gruss
seba
  Mit Zitat antworten Zitat