Delphi Idhttp Component +idhttpserver component for file download service

http://blog.csdn.net/xxkku521/article/details/16864759Delphi idhttp Component +idhttpserver component for file download service2013-11-21 18:15 2624 People read comments (0) favorite reports Classification:DELPHI (Ten)

Copyright NOTICE: This article for Bo Master original article, without Bo Master permission not reproduced.

[Delphi]View PlainCopy  

2. Uses idhttp,idhttpserver;
6. Idhttp Component Submission Download request
8. Procedure Tvodservice.   Button3click (Sender:tobject);
10. Var
12. H:tidhttp;
14. Mystream:tmemorystream;
16. URL:string;
18. Begin
20. Mystream:=tmemorystream.   Create;
22. H:=tidhttp.   Create (nil);
24. url:=' http://192.168.0.254:9003/GetIni ';//Request Address
26. Try
28. H. Get (Url,mystream); Submit Request except
30. Application.  Messagebox (' network error, please check network connection ',' Error box ', Mb_ok+mb_iconerror);
32. MyStream.  Free;
34. H. Free;
36. Exit
38. end;
40. MyStream.   SaveToFile (Extractfilepath (Application. exename) +' system.ini ');
42. MyStream.   Free;
44. H. Free;
46. End
50. Idhttpsever Component Response Request
52. Procedure Tvodservice. Datamodulecreate (Sender:tobject); //Initialize Idhttpserver components
54. Var
56. Hport:integer;
58. Binding:tidsockethandle;
60. Begin
62. Try
64. Vodhttpserver. Bindings.  Clear;
66. Binding: = Vodhttpserver. Bindings.  ADD;
68. Binding.  port:=9003;
70. Binding.  ip:=' 192.168.0.254 ';
72. Vodhttpserver.  Active:=true;
74. except
76. On e:exception do
78. begin
80. Frmmain_vodser. Write_logfile (' Load app settings error ' +e. Message);
82. end;
84. end;
86. End
92. Procedure Tvodservice.  Vodhttpservercommandget (Athread:tidpeerthread;
94. Arequestinfo:tidhttprequestinfo; Aresponseinfo:tidhttpresponseinfo); //Response Request
96. Var
98. bytesent:cardinal;
100. Localdoc:string;
102. Tempstr,ips:string;
104. Len,sport:integer;
106. Begin
108. Tempstr:=arequestinfo. Document; //Get request string
110. Ips:=tidiohandlersocket (Athread. Connection. Iohandler). Binding. PeerIP; //Get request address
112. Sport:=tidiohandlersocket (Athread. Connection. Iohandler). Binding. Peerport; //Get request Port
114. if FileExists (Extractfilepath (Application. exename) +' system.ini ') Then
116. begin
118. Localdoc:=extractfilepath (Application. exename) +' system.ini ';
120. Bytesent: =vodhttpserver.  Servefile (Athread, Aresponseinfo, Localdoc);
122. End Else
124. begin
126. Application. Messagebox (' no file found system.ini!  ',' cue box ', mb_ok+mb_iconerror);
128. end;
130. End

Delphi Idhttp Component +idhttpserver component for file download service