如何从Web Server application返回一幅图像? Web Server Application不仅可以生成复杂的页面文档,也可以根据用户请求返回不同的图像。当然有比较简单的方法,根据输入参数不同,〈img src...〉标记也指向不同的URL地址。这里我们不用这个办法,而是利用DLL返回图像。 当然要首先建立一个页面容器(page producer),内容如下: 〈html〉 〈body〉This is a test〈BR〉〈img src=″/scripts/mydll.dll/picture″〉〈/body〉 〈/html〉
procedure TForm1.Button1Click(Sender: TObject); var p : PHostEnt; s : array[0..128] of char; p2 : pchar; begin {得到计算机名称} GetHostName(@s,128); p:=GetHostByName(@s); Memo1.Lines.Add(p^.h_Name);
procedure TForm1.Button1Click(Sender: TObject); var OldCur: TCursor; begin OldCur := Screen.Cursor; with Printer do begin BeginDoc; HTML1.AutoPrint(handle); Title := HTML1.URL; EndDoc; end;