Einzelnen Beitrag anzeigen

Benutzerbild von DirkG
DirkG

Registriert seit: 29. Sep 2003
Ort: Schwerin
67 Beiträge
 
Delphi 5 Enterprise
 
#1

JPEG über Socket an Browser senden

  Alt 23. Jun 2011, 15:44
Hallo!
Die Suchfunktion hat leider nicht den gewünschten Erfolg gebracht, darum will ich es mal als Frage versuchen.

Ich habe einen kleinen WEB-Server. Dieser soll 4-5 Seiten bereitstellen, die im Intranet abgeholt werden können. Das senden einer HTML Seite funktioniert. Nur wenn in der Seite eine Grafik enthalten ist, kommt es zu Problemen. Der Browser empfängt die Seite, fordert die Stylesheet Datei an und empfängt sie problemlos. Dann fordert er die Grafik an. Der Server kann die Datei laden und beginnt sie zu senden. Dann passiert nichts mehr. Ich verwende die folgenden Zeilen zum Senden der Datei.

Delphi-Quellcode:
var lvSize: integer;
    lvMemStream: TMemoryStream;

...

  lvMemStream:= TMemoryStream.Create;
  try
    lvMemStream.LoadFromFile(aFileName);
    lvMemStream.Seek(0, soFromBeginning);
    lvSize:= lvMemStream.Size;
    fSocket.SendBuf(lvSize, Sizeof(lvSize));
    fSocket.SendStream(lvMemStream);
    Sleep(100);
  finally
    lvMemStream.Free;
  end;
Human are Human to make mistakes.
  Mit Zitat antworten Zitat