都来看看:关于组件和网页的问题 我要写了一个dll文件让asp调用这个dll文件负责把数据库里的图片显示到网页上应该怎么做?我现在取得那条图片的记录关键就是不知道在delphi 里怎么样在asp网页里显示出来 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 一般Web Server返回的信息有基于HTML的文字流和图像流,如Jpeg和Gif等。返回文字流的方法是使用TwebResponse.Content,在Delphi 3的Demos中有这样的例程,但如何返回图像呢? 返回图像的方法是用TwebResponse.ContentStream和TjpegImage类。具体实现如下,例如您有三张图片,希望在别人访问您的主页时能随机的显示一张,在您的主页中有如下的HTML语句:<IMG SRC="/scripts/mypict.dll">,那么在您的Web Server的缺省的TwebActiveItem中如下处理: var Jpg: TJpegImage; S: TMemoryStream; I: Integer; Begin Randomize; I:= Random(3); Jpg := TJpegImage.Create; try Jpg.LoadFromFile('C:\WebShare\Scripts\test'+IntToStr(I)+'.Jpg'); S := TMemoryStream.Create; try Jpg.SaveToStream(S); S.Position := 0; Response.ContentType := 'image/jpeg'; Response.ContentStream := S; Response.SendResponse; finally S.Free; end; finally Jpg.Free; end; end; 因为使用了TJpegImage类,所以必须在Uses中添加对JPEG文件的包含。 还要引用别的单元吗httpapp这两句不能编译Response.ContentStream := S; Response.SendResponse; 不能编译? 不会吧. 你是建立的Web Server Application吗?var fs: TFileStream;begin fs := TFileStream.Create('JPEGFileName', fmOpenRead); try Response.ContentType := 'image/jpeg'; Response.ContentStream := fs; Response.SendResponse; Handled := True; finally fs.Free; end;end; 我写的是一般的组件不是Web Server Application 寫一個ASPObject 就ok 了!很容易的事! 如果需要,我寄個例子給你! [email protected] 急!!!!!!! 黄花入手,散分 急呀!!!请高手指点! Toolbar2000的问题 两个问题!~ 如何处理在一台机器上我的程序只能有一个进程运行 大侠帮帮我,好急的一个DBGrid的问题。 请问各位水晶报表哪有下?或给在下发一份?多谢! 如何限制dbgrid单元格中字符的长度? 用sql语句查询“姓名”,“姓名”不止一个,由Edit提供该怎么写? 可以构建多个RDM来服务客户端,并将不同的业务逻辑封装到不同的RDM中吗? 我们知道在win32中有SHFlieOpStruct这个结构体,为什么在delphi中要这样声明的呢?var Opstuc:TSHFlieOpStruct
Jpg: TJpegImage;
S: TMemoryStream;
I: Integer;
Begin
Randomize;
I:= Random(3);
Jpg := TJpegImage.Create;
try
Jpg.LoadFromFile('C:\WebShare\Scripts\test'+IntToStr(I)+'.Jpg');
S := TMemoryStream.Create;
try
Jpg.SaveToStream(S);
S.Position := 0;
Response.ContentType := 'image/jpeg';
Response.ContentStream := S;
Response.SendResponse;
finally
S.Free;
end;
finally
Jpg.Free;
end;
end; 因为使用了TJpegImage类,所以必须在Uses中添加对JPEG文件的包含。
httpapp
这两句不能编译
Response.ContentStream := S;
Response.SendResponse;
var
fs: TFileStream;
begin
fs := TFileStream.Create('JPEGFileName', fmOpenRead);
try
Response.ContentType := 'image/jpeg';
Response.ContentStream := fs;
Response.SendResponse;
Handled := True;
finally
fs.Free;
end;
end;
不是Web Server Application