當前位置:首頁 » 委託授權 » delphi設置代理伺服器

delphi設置代理伺服器

發布時間: 2021-07-14 15:23:29

㈠ 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代理伺服器的常式

所謂代理伺服器 就是代理網路用戶去取得網路信息。形象的說,它是網路信息的中轉站.

熱點內容
重百超市供應商系統 發布:2021-11-27 07:59:12 瀏覽:259
成都瓦爾塔蓄電池經銷商 發布:2021-11-27 07:59:09 瀏覽:828
寧波辦公用品供應商 發布:2021-11-27 07:59:05 瀏覽:753
廣州人人店經銷商 發布:2021-11-27 07:59:03 瀏覽:49
旺旺上海經銷商 發布:2021-11-27 07:58:59 瀏覽:362
三折門上海經銷商 發布:2021-11-27 07:58:20 瀏覽:207
澳洲保健品代理商 發布:2021-11-27 07:58:17 瀏覽:728
木旯代理商 發布:2021-11-27 07:58:15 瀏覽:464
供應商開發年度總結 發布:2021-11-27 07:58:07 瀏覽:578
湯臣鈣片代理人是誰 發布:2021-11-27 07:56:27 瀏覽:433