delphi設置代理伺服器
㈠ DELPHI 的WEBBROWSER控制項如何通過HTTP代理服務器取得網頁
直接將本機的IE設置代理然後用Webbrowser訪問網頁就行了
Webbrowser使用的是IE內核,直接設置IE就行了
㈡ delphi 代理伺服器 如何在HTML中加html代碼
首先要問你是否已經有代理伺服器代碼了,如果沒有,那就幫不了你了,先去網上找一個,這不是幾十行能解決問題的。 如果已經有了,那就簡單,
你要做的就是分析html格式
javascript代碼不是隨意能加的,一般是加入到 <body>後面,他每發一個包你就pos一下有沒有<body>,有,就在後面插入內容,然後再返回給真正客戶。
拼接過程很簡單
procere DataRecvd(pData:array of char);
var
s:string;
i:integer;
begin
s := pData;
i := pos('<body>',s);
if i<>0 then
begin
s := (s,1,i+7)+'<javascript..>'+(s,i+8,length(s));
StrP(pData,s,length(s));
end;
end;
難的地方是加入規則比較復雜,html有很多語法,你要進行分析,不能隨意亂加。另一個一個tcp包是有大小限制的,還要考慮組包後大小。我以前做過這種東西,就是電信用的把廣告代碼插入到用戶的網頁裡面,不過我做的是linux下的C寫的。
㈢ delphi 如何設置IE網頁代理
通過修改注冊表設置
注冊表項:HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings
ProxyEnable設置為1
ProxyServer設置為IP:埠號,如果211.211.211.211:8080
關於注冊表的操作自己查一下吧
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry, StdCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
mmo1: TMemo;
lbl1: TLabel;
procere FormCreate(Sender: TObject);
procere btn1Click(Sender: TObject);
procere FormClose(Sender: TObject; var Action: TCloseAction);
private
reg:TRegistry;
nEnable:Integer;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procere TForm1.FormCreate(Sender: TObject);
begin
reg:=TRegistry.Create;
{
通過修改注冊表設置
注冊表項:HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings
ProxyEnable設置為1
ProxyServer設置為IP:埠號,如果211.211.211.211:8080
關於注冊表的操作自己查一下吧
}
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',True);
nEnable:=reg.ReadInteger('ProxyEnable');
if nEnable=1 then
btn1.Caption:='取消代理'
else
btn1.Caption:='設置代理';
end;
procere TForm1.btn1Click(Sender: TObject);
begin
if nEnable=1 then
begin
nEnable:=0;
reg.WriteInteger('ProxyEnable',0);
btn1.Caption:='設置代理';
end
else
begin
nEnable:=1;
reg.WriteInteger('ProxyEnable',1);
reg.WriteString('ProxyServer',mmo1.Text);
btn1.Caption:='取消代理';
end;
end;
procere TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
reg.Free;
end;
end.
㈣ Delphi idhttp 使用代理方法
用Try包起來
㈤ delphi 修改火狐瀏覽器代理的問題
您好,感謝您對火狐的支持
在工具---選項---網路中可以直接設置代理IP和埠,也可以使用擴展,如autoproxy等,或者VPN軟體,都能實現代理上網。
您可以在火狐官方網站下載火狐瀏覽器,在火狐社區了解更多內容。希望我的回答對您有所幫助,如有疑問,歡迎繼續在本平台咨詢。
㈥ 利用delphi製作一個代理伺服器軟體
delphi 自帶的Demo中就有哦
㈦ 求delphi 設置socks5代理訪問網頁的源碼
增加一個TIdIOHandlerSocket組件和一個TIdSocksInfo組件
把原來的IdHTTP組件的IOHandler屬性設置為新增加的TIdIOHandlerSocket組件
把新增加的TIdIOHandlerSocket組件的SocksInfo屬性設置為新增加的TIdSocksInfo組件
然後在TIdSocksInfo組件中正確設置Socks5代理的參數
㈧ Delphi如何實現Http代理登陸的功能
用TIdTCPClient實現非常容易,直接用它的WriteLn函數發送字元串,接收就用ReadLn。
用TClientSocket實現,請先將它設置為阻塞模式,然後用SendText函數發送字元串時要自己在字元串結尾加上#13#10,接收就用ReceiveText。
㈨ idhttp1 在delphi7下如何設置代理IP和Port
var
s: string;
begin
with IdHTTP1.ProxyParams do
begin
ProxyServer := '192.168.0.139'; //代理地址
ProxyPort := 808; //代理埠
ProxyUsername := '';//你的用戶名
ProxyPassword := '';//你的密碼
end;
s :=IdHTTP1.Get('http://www.126.com');
ShowMessage(s);//驗證成功,小心啊...呵呵
end;
㈩ 誰能給我一個用Delphi寫SOCKS5代理伺服器的常式
所謂代理伺服器 就是代理網路用戶去取得網路信息。形象的說,它是網路信息的中轉站.