idHttp Server - Bild zur verfügung stellen ??

**Assun**

Hi !

Habe schon einiges ausprobiert, und auch schon 2 Beispiel Codes gefunden. Aber trotzedm schaffe ich es nicht per idHttp Server ein Bild zur Verfügung zu stellen !(aufruf mit

http://127.0.0.1:8888)

hier mein Code :

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

     IdHTTPServer1.Active := false;

     IdHTTPServer1.DefaultPort   := 8888; // Port 8888 ist Standard

     try

        IdHTTPServer1.Active := true;

     except

        raise;

     end;

     if IdHTTPServer1.Active then

     begin

       label1.Caption := 'Server ist: ONLINE an Port 8888';

     end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

     try

        IdHTTPServer1.Active := false;

     except

       raise;

     end;

     if not IdHTTPServer1.Active then

     begin

      Label1.Caption := 'Server ist: OFFLINE';

     end;

end;

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;

  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

var Stream  : TFileStream;

TheString : String;

begin

    if  fileexists('test.jpg') = true then ARequestInfo.Document := 'test.jpg';

    Stream := TFileStream.Create('test.jpg', fmOpenRead or fmShareDenyWrite);

    Setlength(TheString, Stream.size);

    Stream.Read(TheString[1], Stream.size);

    AResponseInfo.ContentType:='Content-Type: image/jpeg';

    AResponseInfo.ContentStream := Stream;

    AResponseInfo.ContentText := TheString;

end;

Wenn ich diesen Code benutze, wird ständig der Speichern unter Dialog des Explorers/IE/FireFox angezeigt ! Ich möchte aber, dass das Bild im Browser direkt angezeigt wird. Wie ist das zu schaffen ?

mfg,

Assun

Hi.

Tu es doch einfach in HTML einbetten

**Assun**

das geht eben auch net ! Sogar html dateien werden mit dem Speichern unter Dialog angezeigt...

**SirThornberry**

setze nur content-text und nix anderes.

im anhang hab ich nen kleines http-serverbeispiel

**Assun**

Puh ! Also ich habe gestern ewig im Source gesucht, aber nix gefunden, dass ich brauchen könnte

dann habe ich ne weile rumexperementiert. schließlich kam das heraus :

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

     IdHTTPServer1.Active := false;

     IdHTTPServer1.DefaultPort   := 8888; // Port 8888 ist Standard

     try

        IdHTTPServer1.Active := true;

     except

        raise;

     end;

     if IdHTTPServer1.Active then

     begin

       label1.Caption := 'Server ist: ONLINE an Port 8888';

     end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

     try

        IdHTTPServer1.Active := false;

     except

       raise;

     end;

     if not IdHTTPServer1.Active then

     begin

      Label1.Caption := 'Server ist: OFFLINE';

     end;

end;

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;

  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

Var

  Stream: TFilestream;

  TheString : String;

  begin

if ARequestInfo.Document = '/' then begin

IF  fileexists('test.jpg') = true then ARequestInfo.Document := 'test.jpg';

end;

Stream := TfileStream.Create(ARequestInfo.Document, fmOpenRead or fmShareDenyWrite );

AResponseInfo.ContentStream := Stream;

setlength(TheString, stream.size);

stream.Read(TheString[1], stream.size);

end;

Allerdings geht das nur wenn ich offline bin !!! sobald ich online bin, wird das Bild nur im Quelltext dargestellt (über LocalIp oder iNetIP ist gleich)

kann mir da jemand weiterhelfen ?

**Assun**

*vorsichtig-push* sry, aber ich brauche das dringend. weiss einer woran das liegt ?

**SirThornberry**

kurze frage: wird das bild richtig angezeigt wenn du meinen beispielserver nutzt?

**Assun**

habs ehrlich gesagt noch net ausproberit, denn ich müsste das ja umproggen, da man so wie es ist nur htm files öffnen kann...

Aber was mich wundert !!! : mit dem von mir oben geposteten Code geht es wenn ich offline bin super ! wenn ich on bin wird das bild aber nur als Quelltext (so wie wenn mans mit Editor öffnen würde) angezeigt...slebst bei 127.0.0.1 !!!

Raff ich net

**SirThornberry**

den fehler versteh ich auch nicht... Umproggen? musst du nicht, stelle den Modus auf "Einfach" trage als "StandartDatei" den namen deines Bildes ein, ändere den Port (dann eventuell programm neu starten). Und anschließend kannst du über "http://127.0.0.1:8888" das ganze aufrufen und es sollte dir dein bild zurück gegeben werden sofern es in dem ordner gefunden wird.

**Assun**

Hey ! Habe nun den Fehler gefunden. Es lag an Content-Type. Falls es jemand braucht, So geht der Code :

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

     IdHTTPServer1.Active := false;

     IdHTTPServer1.DefaultPort   := 8888; // Port 8888 ist Standard

     try

        IdHTTPServer1.Active := true;

     except

        raise;

     end;

     if IdHTTPServer1.Active then

     begin

       label1.Caption := 'Server ist: ONLINE an Port 8888';

     end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

     try

        IdHTTPServer1.Active := false;

     except

       raise;

     end;

     if not IdHTTPServer1.Active then

     begin

      Label1.Caption := 'Server ist: OFFLINE';

     end;

end;

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;

  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

Var

  Stream: TFilestream;

  TheString : String;

  begin

if ARequestInfo.Document = '/' then begin

AResponseInfo.ContentType   := 'image/jpeg'; 

IF  fileexists('test.jpg') = true then ARequestInfo.Document := 'test.jpg';

end;

Stream := TfileStream.Create('test.jpg', fmOpenRead or fmShareDenyWrite );

AResponseInfo.ContentStream := Stream;

setlength(TheString, stream.size);

stream.Read(TheString[1], stream.size);

end;

idHttp Server - Bild zur verfügung stellen ??

idHttp Server - Bild zur verfügung stellen ??

Re: idHttp Server - Bild zur verfügung stellen ??

Re: idHttp Server - Bild zur verfügung stellen ??

Re: idHttp Server - Bild zur verfügung stellen ??

Re: idHttp Server - Bild zur verfügung stellen ??

Re: idHttp Server - Bild zur verfügung stellen ??

Re: idHttp Server - Bild zur verfügung stellen ??

Re: idHttp Server - Bild zur verfügung stellen ??

Re: idHttp Server - Bild zur verfügung stellen ??

Re: idHttp Server - Bild zur verfügung stellen ??

Forumregeln

Waldteufel (Gast) n/a Beiträge	#2 Re: idHttp Server - Bild zur verfügung stellen ?? 26. Apr 2005, 18:58 Hi. Tu es doch einfach in HTML einbetten
	Zitat

Assun Registriert seit: 3. Feb 2005 Ort: Hilzingen am Bodensee 469 Beiträge Delphi 2005 Personal	#3 Re: idHttp Server - Bild zur verfügung stellen ?? 26. Apr 2005, 19:01 das geht eben auch net ! Sogar html dateien werden mit dem Speichern unter Dialog angezeigt... Sebastian Dietrich http://Assun.de - bald komplett überarbeitet
	Zitat

Assun Registriert seit: 3. Feb 2005 Ort: Hilzingen am Bodensee 469 Beiträge Delphi 2005 Personal	#6 Re: idHttp Server - Bild zur verfügung stellen ?? 27. Apr 2005, 17:16 vorsichtig-push sry, aber ich brauche das dringend. weiss einer woran das liegt ? Sebastian Dietrich http://Assun.de - bald komplett überarbeitet
	Zitat

SirThornberry (Moderator) Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional	#7 Re: idHttp Server - Bild zur verfügung stellen ?? 27. Apr 2005, 18:29 kurze frage: wird das bild richtig angezeigt wenn du meinen beispielserver nutzt? Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
	Zitat