delphi中间件

摘要： uses jpeg,EncdDecd,ZLibEx//字符串base64 编码Function StrtoBase64(const Str:string):string;beginresult:=EncodeString(Str);end;//字符串base64 解码Function Base64toStr(const Base64:string):string;beginresult:=DecodeString(base64);end;//Jpeg base64 编码Function JpegToBase64(Jpeg : Tjpegimage):string;var jpegstream 阅读全文

摘要： uses ZLibExprocedure VariantToStream(const V: OLEVariant; Stream: TStream);var P : Pointer;begin Stream.Position := 0; Stream.Size := VarArrayHighBound (V, 1) - VarArrayLowBound (V, 1) + 1; P := VarArrayLock (V); Stream.Write (P^, Stream.Size); VarArrayUnlock (V); Stream.Position := 0;end;procedure 阅读全文

摘要： function Decrypt(Src: string; Key: string): string;var KeyLen, KeyPos, Offset, SrcPos, SrcAsc, TmpSrcAsc: Integer; Dest: string;begin KeyLen := Length(Key); if KeyLen = 0 then Key := cPasswordKey; KeyPos := 0; Offset := StrToInt('$' + Copy(Src, 1, 2)); SrcPos := 3; while SrcPos < Length(S 阅读全文