1.SQL语句 from tb where xxx='XXX') //不存在,则插入数据 begin insert into tb(xxx) values('XXX') //这里自己定义,插入或更新都可以 end select top @@rowcount as RC //关键是这个语句,读取更新的信息 2.客户端获取更新情况,我这里用Clientdataset. with cds do begin commandtext:=sql ;//这个sql就是上面 的sql语句 open; //注意,…
获取网络文件大小 //delphi 获取网络文件大小 function GetUrlFileSize(aURL: string): integer; var FileSize: integer; var IdHTTP: TidHttp; begin IdHTTP:= Tidhttp.Create(nil); IdHTTP.Head(aURL); FileSize := IdHTTP.Response.ContentLength; IdHTTP.Disconnect; Result := File…