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:
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):
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
