.netµ÷ÓÃdelphiдµÄdll,³ö´íÎó

´íÎóÀàÐÍ£º³ö´íÎó³¢ÊÔ¶ÁÈ¡»òдÈëÊܱ£»¤µÄÄÚ´æ¡£Õâͨ³£Ö¸Ê¾ÆäËûÄÚ´æÒÑË𻵡£

C#Ô´Âë
[DllImport("Base64.dll")]
public static extern string Base64ToStr(string Base64);

protected void Page_Load(object sender, EventArgs e)
{
Response.Write(Base64ToStr("YWRtaW4="));
}

delphi Ô´Âëunit Base;

interface

uses ShareMem,SysUtils, Classes;

// ½«SourceSize³¤¶ÈµÄÔ´Source±àÂëΪBase64×Ö·û´®·µ»Ø
function Base64Encode(const Source; SourceSize: Integer): string; overload;
// ½«Source´ÓStartPos¿ªÊ¼µÄSize³¤¶ÈµÄÄÚÈÝÔ´±àÂëΪBase64£¬Ð´ÈëÁ÷Dest¡£Size=0Îļþ½áÊø
procedure Base64Encode(Source, Dest: TStream; StartPos: Int64 = 0; Size: Int64 = 0); overload;
// °Ñ×Ö·û´®Str±àÂëΪBase64×Ö·û´®·µ»Ø
function StrToBase64(Str: string): string;stdcall;

// °´¸ø¶¨µÄ±àÂëÔ´SourceºÍ³¤¶ÈSize¼ÆËã²¢·µ»Ø½âÂ뻺³åÇøʵ¼ÊËùÐ賤¶È
function Base64DecodeBufSize(const Source; Size: Integer): Integer;
// ½«Base64±àÂë×Ö·û´®Source½âÂë´æ·ÅÔÚBufÖУ¬·µ»Ø½âÂ볤¶È
function Base64Decode(const Source: string; var Buf): Integer; overload;
// ½«Source´ÓStartPos¿ªÊ¼µÄSize³¤¶ÈµÄBase64±àÂëÄÚÈݽâÂ룬дÈëÁ÷Dest¡£Size=0Îļþ½áÊø
procedure Base64Decode(Source, Dest: TStream; StartPos: Int64 = 0; Size: Int64 = 0); overload;
// °ÑBase64×Ö·û´®½âÂëΪ×Ö·û´®·µ»Ø
function Base64ToStr(Base64: string): string;stdcall;

implementation

const
  Base64_Ch