Отображение картинки в браузере

21.11.2007, 14:51. **Просмотров** 880. **Ответов** 3

Надо отобразить на сайте изображение, которое не лежит на сайте, т.е. известен его физический путь, по виртуальному пути к нему не обратиться, написал следующий файл getImg.asp:

<%if Request('path')<>'' then
Dim objStream
Set objStream = Server.CreateObject('ADODB.Stream')
objStream.Type = 1
objStream.Open
objStream.LoadFromFile Request('path')
Response.ContentType='image/gif'
Response.BinaryWrite(objStream.Read)
objStream.Close
Set objStream = Nothing
end if%>

в HTML пишу:
<img src='/tools/getImg.asp?path=<%=путь_к_файлу.gif%>' border='0' alt=''>

захожу на страницу - нет изображения (белый квадрат с красным крестиком сверху слева), refresh страницы не помогает, нажимаю на нем правой мышью, делаю 'Show picture' ('Показать картинку') и она показывается, набираю прямо в адресной строке браузера /tools/getImg.asp?path=путь_к_файлу.gif - она тоже без проблем показывается, что сделать, чтобы она сразу в теге <img> отображалась? или может есть какой-нить другой способ?

21.11.2007, 15:28

написал isapi на Delphi 6, в IIS4 работает прекрасно, в IIS5 показывает картинку, затем IIS намертво зависает, что за фигня?!

Код

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  Img: TGifImage;
  S: TMemoryStream;
begin
  if (Request.QueryFields.Values['path'] <> '') then
  begin
    Img:=TGifImage.Create;
    Img.LoadFromFile(Request.QueryFields.Values['path']);
    S:=TMemoryStream.Create;
    Img.saveToStream(S);
    Img.Free;
    S.Position := 0;
    Response.Expires:=Now()-1;    
    Response.ContentType := 'image/gif'
    Response.ContentStream := S;
    Response.SendResponse;
    S.Free;
  end;
end;

@t1k · 21.11.2007, 15:47

У меня твой код работает. Что могу посоветовать - проверь в NN, может у тебя картинки отключены, попробуй использовать Request.QueryString

21.11.2007, 16:03

посмотрел в Event Viewer ошибку из-за которой IIS слетал, там написано что-то типа 'не удалось прочитать свойство по-умолчанию. выполните regsvr32 asp.dll', выполнил, все заработало (вариант с asp), как я сразу там не посмотрел...

Sergik
		1
	Отображение картинки в браузере 21.11.2007, 14:51. Просмотров 880. Ответов 3 Метки нет (Все метки) Надо отобразить на сайте изображение, которое не лежит на сайте, т.е. известен его физический путь, по виртуальному пути к нему не обратиться, написал следующий файл getImg.asp: <%if Request('path')<>'' then Dim objStream Set objStream = Server.CreateObject('ADODB.Stream') objStream.Type = 1 objStream.Open objStream.LoadFromFile Request('path') Response.ContentType='image/gif' Response.BinaryWrite(objStream.Read) objStream.Close Set objStream = Nothing end if%> в HTML пишу: <img src='/tools/getImg.asp?path=<%=путь_к_файлу.gif%>' border='0' alt=''> захожу на страницу - нет изображения (белый квадрат с красным крестиком сверху слева), refresh страницы не помогает, нажимаю на нем правой мышью, делаю 'Show picture' ('Показать картинку') и она показывается, набираю прямо в адресной строке браузера /tools/getImg.asp?path=путь_к_файлу.gif - она тоже без проблем показывается, что сделать, чтобы она сразу в теге <img> отображалась? или может есть какой-нить другой способ?

@t1k 3 / 3 / 5 Регистрация: 10.05.2007 Сообщений: 1,617
	21.11.2007, 15:47	3
	У меня твой код работает. Что могу посоветовать - проверь в NN, может у тебя картинки отключены, попробуй использовать Request.QueryString 0

Sergik
	21.11.2007, 16:03	4
	посмотрел в Event Viewer ошибку из-за которой IIS слетал, там написано что-то типа 'не удалось прочитать свойство по-умолчанию. выполните regsvr32 asp.dll', выполнил, все заработало (вариант с asp), как я сразу там не посмотрел...

Опции темы