ISAPI中,如何在网络中传递图象,如jpg(100分)

  • 主题发起人 主题发起人 wtang
  • 开始时间 开始时间
W

wtang

Unregistered / Unconfirmed
GUEST, unregistred user!
最好能给出一个示例,谢谢!
 
例子里有的,参见下面
procedure TCustomerInfoModule.CustomerInfoModuleGetImageAction(
Sender: TObject; Request: TWebRequest; Response: TWebResponse;
var Handled: Boolean);
var
Jpg: TJpegImage;
S: TMemoryStream;
B: TBitmap;
begin
Jpg := TJpegImage.Create;
try
B := TBitmap.Create;
try
B.Assign(BioLifeGraphic);
Jpg.Assign(B);
finally
B.Free;
end;
S := TMemoryStream.Create;
Jpg.SaveToStream(S);
S.Position := 0;
Response.ContentType := 'image/jpeg';
Response.ContentStream := S; // do not free the stream because the response
// object will handle that task.
finally
Jpg.Free;
end;
end;
 
ISAPI程序可否在Delphi中调试?
如果用它来开发Web服务器程序,效率如何?
请放心回答,分不够的可以再加!
谢谢!
 
ISAPI的效率当然很高,要不然API编程的面子往哪里搁。
调试起来?唉!一旦调用,DLL就加载在内存里了。调试起来颇不容易。
还有,以后的升级维护工作就麻烦了。
我用ISAPI+SQL Server写过几个东东,有空聊聊。
 
多人接受答案了。
 
后退
顶部