IdHTTPServer - Wo liegen Bilder für Webseiten?

**moelski**

Moin !

Also ich habe langsam alle Varianten durch.
Das Verzeichnis in dem meine Testanwendung liegt ist das hier:
C:\Documents and Settings\Dominik\Desktop\Delphi

Dort liegt die EXE. Und dort liegt auch das Bild mychart.jpg. Additiv habe ich einen Unterordner angelegt mit dem gleichen Bild - zum Testen.

Bis jetzt geht weder:
- /image/mychart.jpg
- image/mychart.jpg
- mychart.jpg

Die zugehörige Webseite schaut so:

zusammenfalten · markieren

Delphi-Quellcode:

			  '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">' +

  '<html>' +

  '<head>' +

  '<title>Testwebseite</title>' +

  '</head>';

  '<body>' +

  '' +

  '<h1>Tu was !</h1>' +

  '' +

  '<form action ="Graphics" method=post>' +    //

    '<table border="0" cellpadding="5" cellspacing="0" bgcolor="#E0E0E0">' +

      '<tr>' +

        '<td align="right">Vorname:</td>' +

        '<td><input name="Vorname" type="text" size="30" maxlength="30"></td>' +

      '</tr>' +

      '<tr>' +

        '<td align="right" valign="top">Kommentar:</td>' +

        '<td><textarea name="Text" rows="10" cols="50"></textarea></td>' +

      '</tr>' +

      '<tr>' +

        '<td align="right">Formular:</td>' +

        '<td>' +

          '<input type="submit" value="Refresh" name="Refresh">' +

          '<input type="submit" value="Absenden" name="Send">' +

          '<input type="reset" value="Abbrechen" name="Cancle">' +

        '</td>' +

      '</tr>' +

    '</table>' +

  '</form>' +

  '' +

  ' Und hier nun das Bild ... 

' +

  '[img]/images/mychart.jpg[/img]'+

  '</body>' +

  '</html>';

Und das ist mein CommandGet (evtl. ist da ja was falsch):

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;

  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

  //AResponseInfo.ContentText := 'Hello World. It is ' + TimeToStr(Time);

Var TheFile:TMemoryStream;

    FN:String;

begin

  If ARequestInfo.Document='/' Then begin

    With AResponseInfo do begin

      ContentText := HtmlForm;

      WriteContent;

    end;

  end else if ARequestInfo.Document = '/Graphics' then begin

    Memo1.Lines.Add(ARequestInfo.FormParams);

    Chart1.SubTitle.Caption := ARequestInfo.FormParams;

    if Pos('Refresh', ARequestInfo.FormParams) > 0 then

      PaintChart;

    AResponseInfo.ContentText := HtmlForm;

    AResponseInfo.WriteContent;

  end;

end;

Zitat:

von deinem Rootverzeichnis aus

Wo genau ist denn das Rootverzeichnis? Ichhabe noch keine Möglichkeit gefunden es auszulesen, geschweige denn zu setzen

IdHTTPServer - Wo liegen Bilder für Webseiten?

Re: IdHTTPServer - Wo liegen Bilder für Webseiten?

Forumregeln