delphi网页控制

Showmessage(\\'网络出错!\\');

MyStream.Free;

Exit; end;

MyStream.SaveToFile(\\'c:\\\\Mp3ToExe.zip\\');

MyStream.Free; Showmessage(\\'OK\\');

end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;

const AWorkCountMax: Integer);//开始下载前,将ProgressBar1

begin

ProgressBar1.Max:=AWorkCountMax;

ProgressBar1.Min:=0; ProgressBar1.Position:=0;

end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);//接收数据

时候,进度将在ProgressBar1显示出来. begin

ProgressBar1.Position:=ProgressBar1.Position+AWorkCount;

end;

IdHTTP1

Get还有

种形式就是获取

var MyStr:String;

begin

IdAntiFreeze1.OnlyWhenIdle:=False;//设置使

try

MyStr:=IdHTTP1.Get(\\'http://www.138soft.com/default.htm\\');

except

Showmessage(\\'网络出错!\\');

Exit; end;

Showmessage(MyStr);

end;

来源：(http://blog.sina.com.cn/s/blog_426a901f0100g904.html) - 网页内容查询控制_星岚_新浪博客

有反应.

串:例如,上面

可以改写成:

procedure TForm1.Button1Click(Sender: TObject);

最大值设置为需要接收

数据大小.

Delphi调用Java的Web

Service，请指点

web service 服务端是用cxf简单实现的，java作为客户度已经能成功调用 但用Delphi作为客户端调用时出错 Delphi实现客户端时，直接用Delphi自带的wsdl importor生成接口文件

先把wsdl贴出来吧

XML code

-

vice\

targetNamespace=\/server.cxf.com/\ xmlns:ns1=\as.xmlsoap.org/soap/htt

p\

xmlns:soap=\mas.xmlsoap.org/wsdl/so

ap/\

xmlns:tns=\

r.cxf.com/\

xmlns:wsdl=\mas.xmlsoap.org/wsdl/\ xmlns:xsd=\

3.org/2001/XMLSchema\

-

-

ualified\

targetNamespace=\/server.cxf.com/\ version=\ xmlns:tns=\

r.cxf.com/\

xmlns:xs=\.org/2001/XMLSchema\

\ />

-

-

xs:sequence>

span>xs:complexType>

-

-

xs:sequence>

span>xs:complexType>

xs:schema>

wsdl:types>

-

/>

wsdl:message>

-