Отправка файла в броузер

[zicon]

Всем доброго времени суток

Делаю такое вот извращение

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;Socket: TCustomWinSocket);
var
ms: TMemoryStream;
begin
s:=Socket.ReceiveText;
Memo2.Lines.Add(s);
if pos('GET /',s)<>0 then  fil:=copy(s,pos('GET /',s)+Length('GET /'),pos(' HTTP/1.1',s)-pos('GET /',s)-Length('GET /'));
if FileExists(fil)=true then begin
ms:= TMemoryStream.Create;
ms.LoadFromFile(fil);
ms.Position:= 0;
Memo2.Lines.Add('отправка '+fil);
//Socket.SendText(inttostr(ms.Size));
Socket.SendStream(ms);
end else  begin
Socket.SendText('CHTTP/1.1 200 Ok'#13#10);
Socket.SendText('Content-Type: text/html'#13#10);
Socket.SendText(''#13#10);
Socket.SendText(Memo1.Text);
end;
Socket.Close;
end;

соответственно в броузере при конекте http://localhost:91 получаю страничку, сгенерированную из html записанного в мемо1

Проблема вот в чем, при передачи текстового файла (<a href=xz.txt>)
броузер удачно выводит и сохраняет исходный файл, но при передачи картинки(jpg,bmp) или бинарника, я получаю файл того же размера что и исходный, но битый, т.е не читаемый, в чем может быть проблема?

[veniside]

> в чем может быть проблема?

вот в этом:

Socket.SendText('Content-Type: text/html'#13#10);

Картинка — это не текст, и не хтмл.

[kangreon]

Для начала необходимо отправить HTTP заголовки

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  s: String;
  i: integer;
  path: string;
  ms: TMemoryStream;
begin
  s := Socket.ReceiveText;
  i := PosEx(' ', s) + 1;
  path := Copy(s, i, PosEx(' ', s, i) - i);
  if path = '/' then
  begin
    s := '<img src="/image.php">';
    Socket.SendText('HTTP/1.0 200 OK'#13#10'Content-Length: ' +
      IntToStr(Length(s)) + #13#10#13#10 + s);
  end;
  if path = '/image.php' then
  begin
    ms := TMemoryStream.Create;
    ms.LoadFromFile('c:\1.jpg');
    ms.Position := 0;
    Socket.SendText('HTTP/1.0 200 OK'#13#10'Content-Length: ' +
      IntToStr(ms.Size) + #13#10#13#10);
    Socket.SendStream(ms)
  end;
end;