请问如何取得网上的JPG的长和宽，文件大小等信息？谢谢！

可能要先把它 download 下來吧! --- Have you ever wondered what it would be like?

文件大小是可以取得。 但IE好象在下载是的时候都有长度显示，这也是，可能他是通过HTML源码来分析出来的。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 不知道那一位高手能实现小弟所说的功能呢？

TWebBrowser_V我是從intenet explorer library import的....用內建的TWebBrowser應該也行^^,如同hager兄說的..可能要先下載才行....下面程式碼可以讀取一jpg檔,並取得寬度    

 
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,mshtml, OleCtrls, SHDocVw_TLB, StdCtrls;    type
  TForm1 = class(TForm)
    WebBrowser_V11: TWebBrowser_V1;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser_V11DownloadComplete(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  complete:boolean;    implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser_V11.Navigate('http://140.134.4.20/~g8905202/10.jpg');
 complete:=false;    end;
procedure TForm1.Button1Click(Sender: TObject);
var
 doc:IHTMLDocument2;
 co: IHTMLelementcollection;
 ele:IHTMLelement;
 i:integer;
begin      if  complete=false then  begin
   showmessage('not complete');
   abort;
  end;      doc:=WebBrowser_V11.document as IHTMLDocument2;
  for i:=0 to  doc.images.length-1    do begin
    ele:=doc.images.item(i,'') as IHTMLelement;
    if ele.tagName='IMG' then
       showmessage(inttostr(ele.offsetWidth));      end;
end;    procedure TForm1.WebBrowser_V11DownloadComplete(Sender: TObject);
begin
  complete:=true;
end;    end.    

發表人 - pgdennis 於 2003/03/10 23:48:54

------
星期一,二...無窮迴圈＠＠