02 2012 档案

摘要：很简单的实例，读写txt文件。读txt文件1 var2 Reader: TStreamReader;3 begin4 Reader := TStreamReader.Create( 'txt路径',TEncoding.UTF8); //utf8 编码读写text1.txt5 6 edtTitle.Text := Reader.ReadLine(); //读取一行7 mmText.Text := Reader.ReadToEnd(); //读取全部8 Reader.Free(); //关闭和释放9 end;写txt文件1 var2 Writer: TStream... 阅读全文

摘要：1 Imports System.Text 2 Imports System.Security.Cryptography 3 4 Function getMD5Hash(ByVal strToHash As String) As String 5 Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider 6 Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash) 7 by... 阅读全文

摘要：引用三个单元，分别是：IdHashMessageDigest,IdGlobal, IdHash; 1 uses IdHashMessageDigest,IdGlobal, IdHash; 2 3 vars:string; 4 MyMD5: TIdHashMessageDigest5; 5 Digest: T4x4LongWordRecord; 6 begin 7 s:='123456'; 8 MyMD5 := TIdHashMessageDigest5.Create; 9 Digest := MyMD5.HashValue(s);10 s:=MyMD5.AsHex(Digest 阅读全文

摘要：测试环境：VS2008+VB.net 1 Public Shared Function GetWebContent(ByVal sURL As String) As String 2 Try 3 Dim request As Net.WebRequest 4 Dim response As Net.WebResponse 5 request = Net.WebRequest.Create(sURL) 6 response = request.GetResponse() 7 ... 阅读全文