如何在delphi里用代码实现创建VPN连接?
我的代码如下,怎么总提示连不成功:
type
GUID = record //申明调用RAS（创建VPN连接用）函数所需结构体
Data1: integer;
Data2: Shortint;
Data3: Shortint;
Data4: array[0..6] of byte;
end;
type
RASIPADDR = record //申明调用RAS（创建VPN连接用）函数所需结构体
a: byte;
b: byte;
c: byte;
d: byte;
end;
type
RASENTRY = record //申明调用RAS（创建VPN连接用）函数所需结构体
dwSize: integer;
dwfOptions: integer;
dwCountryID: integer;
dwCountryCode: integer;
szAreaCode: array[0..9] of byte;
//szLocalPhoneNumber: array[0..127] of byte;
dwAlternateOffset: integer;
ipaddr: RASIPADDR;
ipaddrDns: RASIPADDR;
ipaddrDnsAlt: RASIPADDR;
ipaddrWins: RASIPADDR;
ipaddrWinsAlt: RASIPADDR;
dwFrameSize: integer;
dwfNetProtocols: integer;
dwFramingProtocol: integer;
szScript: array[0..258] of char;
szAutodialDll: array[0..258] of char;
szAutodialFunc: array[0..258] of char;
szDeviceType: array[0..15] of char;
szDeviceName: array[0..127] of char;
szX25PadType: array[0..31] of char;
szX25Address: array[0..199] o
相关问答：
由于客戶端有的文件經常更新（遠程的，不是局域網），
所以想寫個自動更新的 程序。
看網上的 方法資料，知道些方法，但不知道具體怎么寫。
......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
