|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.05.2009, 19:18 | #1 |
Регистрация: 21.03.2009
Сообщений: 9
|
CGI в Делфи
Здравствуйте, пытаюсь вывести фигуру с помощью CGI в браузер и не выходит, не подскажите в чем ошибка?
procedure TWebModule4.WebModule4WebActionItem 1Action(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); var image:Tbitmap; jpg:TJpegImage; stream:Tmemorystream; begin Image:=Tbitmap.create; try image.Canvas.Ellipse (10, 40, 20, 50); jpg:=TJpegImage.Create; try jpg.Assign(image); stream:=Tmemorystream.Create; jpg.SaveToStream(stream); stream.Position:=0; response.ContentType:='image/jpeg'; response.ContentStream:=stream; response.SendResponse; finally jpg.Free; end; finally mage.Free; end; end; Последний раз редактировалось YaFakir; 15.05.2009 в 19:41. Причина: Не там создал тему... |
15.05.2009, 19:41 | #2 |
Регистрация: 21.03.2009
Сообщений: 9
|
Извиняйте, не там тему создал
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
CGI | аким | Работа с сетью в Delphi | 0 | 08.10.2008 11:35 |
CGI на Делфи | AntonK8 | PHP | 3 | 12.04.2008 10:44 |
CGI-картинка | AidarBik | PHP | 0 | 01.01.2008 18:03 |
CGI в Delphi | Pedro | PHP | 0 | 01.01.2008 13:56 |
CGI | Pedro | Работа с сетью в Delphi | 0 | 17.11.2007 20:31 |