- 浏览: 9183 次
- 性别:
- 来自: 广州
最新评论
文章列表
//读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";
// 邮件发送者的地址
...