//from   http://kingron.myetang.com/zsfunc0d.htm (*//   标题:充分利用pascal字符串类型   说明:和PChar不同,string可以保存#0字符在其中;示例文件.内存流字符串之间转换   设计:Zswang   日期:2002-01-25   支持:wjhu111@21cn.com   //*) ///////Begin   Source   function   StringToFile(mString:   string;   m

//////////////////////////////////////////////////////////////////////////////////功能: STRING 的内容流化到 OLEVARIANT 中//参数:////////////////////////////////////////////////////////////////////////////////function TextToOleData(const AText: string): OleVaria

Delphi7下实现HTTP的Post操作 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, Buttons, OverbyteIcsWndControl, Overbyt

在实际编程中,经常会用到Buffer,当string作为Buffer传值时需要注意的是 1, string的值的起始索引是1,千万记住! 2, 有时候需要先告诉系统去开辟出内存空间,用SetLength函数. 如下代码,示范了再Move. WriteBuffer. ReadBuffer时候的用法: unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms

// TMemoryStream 转化为string字符串 function MemoryStreamToString(M: TMemoryStream): AnsiString; begin SetString(Result, PChar(M.Memory), M.Size div SizeOf(Char)); end; // TMemoryStream 写入string字符串 procedure MemoryAddStr(M:TMemoryStream;cStr:String); begin

System.SysUtils 一.TStringStream方法 Strem>String TMemoryStream to String stm: TStream; ss: TStringStream; #include "System.SysUtils.hpp" DataString image.picture.savetoStream(stm); ss := TStringStream.Create('', TEncoding.Unicode); ss.CopyFrom(

核心提示:一直以来,delphi 的网络通讯层都是以indy 为主,虽然indy 的功能非常多,涉及到网络服务的各个方面,但是对于大多数多层服务来说,就是需要一个快速.稳定.高效的传输层.Delphi 的 datasnap主要通过三种实现数据通讯的,一种是大家恨得牙痒痒的indy,另外一种是通过iis 的is... 一直以来,delphi 的网络通讯层都是以indy 为主,虽然indy 的功能非常多,涉及到网络服务的 各个方面,但是对于大多数多层服务来说,就是需要一个快速.稳定.高效的传输层.D

这个也是好奇msn的协议还是2011年的时候写的, 就在网上找啊找啊, 可惜要不是不能用就是C++代码还有就是不完整, 到最后我也没弄成功,只到了下面这步就挂掉了...... 登录成功<=SBS 0 null<=MSG Hotmail Hotmail 1261=>BLP 8 BL<=BLP 8 BL=>ADL 9 11 <ml l="1"/>断开与->64.4.44.92 现在公布出来吧, 代码写得不是很好, 有三个函数是改自某位老大的,

// UTF-8文件写入函数procedure SaveUTFFile(const FileName: string; S: string; WriteHeader: Boolean = True);var  MemStream: TMemoryStream;  HeaderStr: String;begin  if S = '' then Exit;   MemStream := TMemoryStream.Create;  try    if WriteHeader then    begi

首先感谢图形验证码的提供者  晴空无彩虹  https://blog.csdn.net/u011784006/article/details/80827181 他用FMX 实现了验证码的生成,我修改成了 VCL 版的. 整个生成验证码的单元,全程推出. unit uVerifyCode; interface uses System.Classes, System.SysUtils,vcl.graphics,Vcl.ExtCtrls, System.IOUtils, System.UIConsts

$("#img-code").bind( 'click', function () { $(this).attr('src','VerifyCode?t='+Math.random()); }); unit uVerifyCode; interface uses System.Classes, System.SysUtils, FMX.Types, FMX.Objects, FMX.Graphics, System.UIConsts, System.UITypes, {$IFDEF M

原文地址 Java.PHP.C#等很容易在网上找到生成验证码图片的代码,Delphi却寥寥无几,昨天花了一整天时间,做了个跨平台的验证码,可以用在C/S和B/S端,支持Windows.Linux.Android.IOS等.对于验证码图形的混淆,只做了简单的随机线条生成,并且随机数是使用系统自带的Randomize和Random函数,Randomize随机数初始化函数由于取种子是保存在全局变量中,虽然是integer类型,但不排除非线程安全问题,所以实际应用中,还需要线程保护. C/S和B/S上的

QJSON封装好的序列和还原方法 {*******************************************************}{ }{ QJSON与数据集互转 }{ }{ 版权所有 (C) 2014 碧水航工作室 }{ 作者:恢弘 QQ11241450 }{ QJSON版权属于 QDAC,QQ群为:250530692 }{ }{ V1.0.1 - 2014.07.01 }{***************************************************

http://blog.sina.com.cn/s/blog_693cf1cf0100plkq.html 对于涉及图像数据的数据库应用程序,图像数据的存取技术是一个关键.由于缺少技术文档及DEMO例程演示,为此笔者在网上搜索了相关资料,有的根本不能用,有的过于繁杂,有的应用范围太窄(如只能适用于BMP图像),有的写得过于简单理解起来十分困难...而且在网上这也是大家比较关心的一个问题.笔者对这个问题进行了反复实作和探索,下边笔者将通过一个完整的简单例子来说明如何保存和显示SQL数据库中的图像数据

// UTF-8文件写入函数 procedure SaveUTFFile(const FileName: string; S: string; WriteHeader: Boolean = True); var MemStream: TMemoryStream; HeaderStr: String; begin if S = '' then Exit; MemStream := TMemoryStream.Create; try if WriteHeader then begin HeaderS

 http://blog.csdn.net/xxkku521/article/details/16864759 Delphi IdHttp组件+IdHttpServer组件实现文件下载服务 2013-11-21 18:15 2624人阅读 评论(0) 收藏 举报  分类: DELPHI(10)  版权声明:本文为博主原创文章,未经博主允许不得转载. uses idhttp,IdHTTPServer; //idhttp组件提交下载请求 procedure TVodService.Button3Cl

DELPHI 把数据库中的数据转换成XML格式 function ReplaceString(AString: string): string; begin Result := StringReplace(AString, '&', '&', [rfReplaceAll]); Result := StringReplace(Result, '>', '>', [rfReplaceAll]); Result := StringReplace(Result, '<', '&l

unit uMD5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics; type MD5Count = ..] of DWORD; MD5State = ..] of DWORD; MD5Block = ..] of DWORD; MD5CBits = ..] of Byte; MD5Digest = ..] of Byte; MD5Buffer = ..] of Byte; MD5Context =

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btn1: TButton; btn2: TButton; edt2: TEdit; lbl1: TLabel; dlgOpen1: TOpenDialog; procedure btn1Click(Se

前言: 1.公司delphi7开发的传统软件还活得好好的,但是大家都知道delphi早已经日落西山了,现在成了后进.追随者.细细算了已经6.7不用了.新的delphixe7呢,没有时间成本去适应和研究. 由于大量使用了第3方的组件和控件,想升级估计是吃力不讨好的事情... 2.保留原有代码,开发新功能可调用远程主机(云主机)的REST ful风格的api,使用Json交换数据.这样就赶上了新潮流,复活了. 由于网上搜索了很多次,发现符合需求的文章很少,这里记录下来,授人以鱼吧. delphi7使

官网 http://www.overbyte.be/ 下载 OverbyteIcsV816 完成后解压到E:\Delphi7\OverbyteIcsV816\ 1.在library里加入E:\Delphi7\OverbyteIcsV816\Source目录. 2.从File->Open中打开E:\Delphi7\OverbyteIcsV816\Install\D7Install.bpg文件.(文件名在其它Delphi版本略有不同) 3.在项目管理器中,右键OverbyteIcsD7Design.