淘宝平台开发 delphi 示例
淘宝开放平台的开发例子大多都是c#，php，java等，缺少Pascal的例子。
现用delphi写了一个示例，
关键点是签名的生成，签名需按key字母顺序排序，并去掉等于号后首尾相连。
关键代码：
memstr:= TMemoryStream.Create;
//用授权码获取 session
IdHTTP1.Get('http://container.api.tbsandbox.com/container?authcode='+memo1.Text,memstr);
setlength(ss,memstr.Size);
memstr.Position:= 0;
memstr.Read(ss[1],memstr.Size);
ss:= Utf8ToAnsi(ss);
//切分session top_session=282730527fc47c5e27838f5dd8aeb098afefd&top_sign=LiTSTYs/DQHpRAGA4OPEZA==
ss:= copy(ss,pos('top_session=',ss)+12,255);
ss:= copy(ss,1,pos('&',ss)-1);
memo1.Lines.Add(ss);
//制作签名，下列代码有冗余的单引号，主要是为了显示逻辑关系。
ss2:=secrect_key+'app_key'+app_Key +
'fields'+'tid,seller_nick,buyer_nick,status,orders.title,orders.price,orders.num'+
'format'+ 'xml'+
'method'+'taobao.trades.sold.get'+
'session'+ss+
'sign_method'+'md5'+
'timestamp'+datetimetostr(now)+
'v'+ '2.0'+ secrect_key;
ss2:= UpperCase(StrMD5(ss2)); //生成签名md5
//合成参数
ss3:= 'app_key='+app_Key +
'&fields='+'tid,seller_nick,buyer_nick,status,orders.title,orders.price,orders.num'+
'&format='+ 'xml'+
'&method='+'taobao.trades.sold.get'+
'&session='+ss+
'&sign_method='+'md5'+
'×tamp='+ URLEncod
相关文档：
TMS Scripter：支持Pascal和VBScript两种语法。优点是文档齐全、例子齐全，脚本可直接支持DLL，官方还提供了丰富的IDE Debug工具、单元导出函数工具等，缺点是编译运行较慢。for 空循环1000万次，需要10秒钟以上。TMS Scripter是商业共享软件。
FastScript：用过FastReport报表的同� ......
dynamic就是它是动态方法，没有静态地址，所以速度慢一点
virtual是虚方法，如果在基类中不声明成虚方法的话，继承后，该方法会提示一警告信息，把基类中方法屏蔽掉了
---------------------------------------------------------------
动态（Dynamic）和虚拟（Virtual）后都可以使用Override关键字在派生类中对对应 ......
var
ExcelFile:string;
SourceRange,DesRange:Variant;
Row,Column,i:integer;
begin
if OpenDialog1.Execute then
begin
ExcelFile:=OpenDialog1.Files[0];
if not FileExists(ExcelFile) then Exit;
end
else
Exit;
try
ExcelApp:=CreateOleObject('Excel.Application');
......
用VC++6.0编写了一个简单的dll，里面包含一个减法函数subtract(int a,int b)，Dll命名为ff.Dll
代码如下：
1.ff.cpp:
// ff.cpp : Defines the entry point for the DLL application.
//
#include "StdAfx.h"
#include "ff.h"
BOOL APIENTRY DllMain( HANDLE hModule,
......
function ListFiles(Dir: String):TStrings;
var
FSearchRec: TSearchRec;
FileList: TStrings;
FindResult: Integer;
begin
if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
FileList :=TStringList.Create;
FindResult:=FindFirst(Dir+'*.*,faAnyFile+faDirectory,FSearchRec);
while FindRes ......
