`
sunties7
  • 浏览: 9183 次
  • 性别: Icon_minigender_1
  • 来自: 广州
社区版块
存档分类
最新评论
文章列表
//读excel function  TForm1.readExcel(fileName :WideString):TStringList; var     I, J ,len,ret: Integer;     MaxRow, MaxCol: Integer;     List, Strs: TStringList;     ExcelApp, Sheet: Variant;     OldTime: TDateTime;     strChar:WideChar;     str:WideString; begin     ListINFO := TStringList.Create;    ...
unit EncodingUtil; interface uses   SysUtils, Classes, Types, EncdDecd; function BytesToBase64(const bytes: TByteArray): string; function StreamToBase64(AStream: TStream): string; implementation function BytesToBase64(const bytes: TByteArray): string; var   memoryStream: TMemoryStream; begin   m ...
转自 https://searchcode.com/codesearch/view/5602527/ unit Base64; interface uses windows; { Base64 encode and decode a string } function Base64Encode(src:pByte;len:integer):PAnsiChar; function Base64Decode(src:PAnsiChar;var dst:pByte):integer; {****************************************************** ...
转载http://blog.csdn.net/zhoushuai520/article/details/7640330 sendMail.java package com.sunties.shopping.util.mail; import java.util.Properties; public class sendMail {     // 发送邮件的服务器的IP和端口      private String mailServerHost;     private String mailServerPort = "25";     // 邮件发送者的地址     ...
Global site tag (gtag.js) - Google Analytics