library urlencode;uses
SysUtils,
Classes;{$R *.res}
function URLdecode(str:string):string; stdcall;
var
temp:string;
i:integer;
begin
setlength(temp,length(str) div 3);
i:=1;
while(i<length(str)) do
begin
temp[(i+2)div 3]:=char(strtoint('$'+str[i+1]+str[i+2]));
inc(i,3);
end;
Result:=temp;
end;exports
URLdecode;
beginend.
//-----------------------------------以上是写的DLL.可是调用说是 在组件中找不到类型库.是怎么回事啊
SysUtils,
Classes;{$R *.res}
function URLdecode(str:string):string; stdcall;
var
temp:string;
i:integer;
begin
setlength(temp,length(str) div 3);
i:=1;
while(i<length(str)) do
begin
temp[(i+2)div 3]:=char(strtoint('$'+str[i+1]+str[i+2]));
inc(i,3);
end;
Result:=temp;
end;exports
URLdecode;
beginend.
//-----------------------------------以上是写的DLL.可是调用说是 在组件中找不到类型库.是怎么回事啊
解决方案 »
- 如何读项目代码
- 使用过后的ado控件,需要释放吗?
- !!! 高难度CheckListBox,请版主关注!!!
- 我需要在TTREEVIEW里面增加信息 我想让信息的某些字显示为红色 请问有办法实现吗
- 关于数据集Filter的使用错误
- 在DBGrid中,怎么知道共有多少条记录?要用Query吗?
- =============惊天大发现!============
- 大家谈了这么多三层,请问怎么样才算是将业务逻辑真正封装在中间层?
- 没有TQuickRep怎么办啊??
- 谁能帮我把delphi一个文件转换成VC给100分
- Delphi 三层中 服务器 如何不定时的向 客户端 广播消息?
- 全部窗体都使用一种第三方字体
電腦開始/運行Regsvr32 urlencode.dll
我以前遇到相同情況,注冊該dll后運行正常
library urlencode; uses
SysUtils,
Classes;
exports
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer;这样试试