程序与网站通信的有关问题

2012-02-21

程序与网站通信的问题~麻烦各位大虾小虾中虾们告诉一下,我要做一个程序跟一ASP网站交互数据,网站需要使用

程序与网站通信的问题~
麻烦各位大虾小虾中虾们告诉一下,我要做一个程序跟一ASP网站交互数据,网站需要使用我的程序为它提供数据,反之我也需要获取它的一些数据提供给程序使用,请问用什么控件实现起来最容易..........

[解决办法]
用Socket, 按照HTTP协议直接与网站的ASP程序进行通讯。
[解决办法]
socketconnect控件确实可以，而且是及时的信息，呵呵
[解决办法]
可以用IdHTTP组件来实现的。
[解决办法]
当然，如果说仅仅实现的话是可以的，不过用idhttp控件的效率没有用socket高，而且取得的数据还要解析处理，保存还要处理，就比较累了，呵呵
[解决办法]
ics 我一直在用它
或者

function DownloadFile(const remoteurl: string; Stream: TStream;
DownloadTitle: string; PrintProcess: TPrintProcess): Boolean;

var
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
BytesRead: DWORD;
Buffer: array[1..8192] of Char;
HaveRead: DWORD;

lpdwlen, lpdwidx, lpdword: DWord;

begin

try
if assigned(PrintProcess) then
PrintProcess(1, 100);

Result := false;
NetHandle := InternetOpen(
'htmlcopy ',
INTERNET_OPEN_TYPE_DIRECT,
nil,
nil,
0);
if Assigned(NetHandle) then
begin
UrlHandle := InternetOpenUrl(
NetHandle,
PChar(remoteurl),
nil,
0,
INTERNET_FLAG_RELOAD,
0);
if Assigned(UrlHandle) then
begin
HaveRead := 0;
lpdword := 0;
lpdwlen := 4;
lpdwidx := 0;

HttpQueryInfo(UrlHandle, HTTP_QUERY_CONTENT_LENGTH or
HTTP_QUERY_FLAG_NUMBER, @lpdword, lpdwlen, lpdwidx);

repeat
FillChar(Buffer, 8192, 0);
InternetReadFile(UrlHandle, @Buffer[1], SizeOf(Buffer), BytesRead);
Stream.Write(Buffer[1], bytesread);
HaveRead := HaveRead + bytesread;

if assigned(PrintProcess) then
PrintProcess(round(HaveRead * 100 / lpdword), 100);

until BytesRead = 0;

result := lpdword = HaveRead;

end;
InternetCloseHandle(UrlHandle);
end;
InternetCloseHandle(NetHandle);

except
end;
end;

[解决办法]
ics 是什么东东, 上面那个就是一个 WinHttp 嘛. google winhttp delphi 有现成的
[解决办法]
你这样做不就是一个WEB的服务程序，你可以使用WEBSERVICES将他们连接起来
[解决办法]
ics 是很老的网络控件

我喜欢他的架构

越简单越好
直接使用 EmbeddedWB

[解决办法]
其实楼主的意思就是想利用已经现成的一个ASP网站程序，用来做为客户端的数据库吧。

我最近也在想做一个这方面的东西。。嘿嘿。。

先接分，帮楼主再顶一下。。
[解决办法]
要是有谁清楚TWEBBROWSER控件
帮我回答这个问题谢谢
http://community.csdn.net/Expert/topic/5391/5391278.xml?temp=.1703913

热点排行

.NET

程序与网站通信的有关问题