nextop88的专栏

Delphi(Pascal) codevar i :integer ; str :String ;for (i:= memo1.lines.count -1 to 0 ) dobegin str = memo1.lines[i] ; if (Trim(str) = '') then begin memo1.lines.delete(i) ; //

利用delphi的TIdHTTP测试百度地图Web服务API发出申请后返回的字符串中的中文全部是乱码，请帮忙指导一下：代码：procedure TForm1.Button2Click(Sender: TObject);var  stream: TStringStream;  idHttpObj: TIdHTTP;  url: string;  fBaiduKey: st

memo1.Text := memo1.Text + '/n' + Buffer;  //定位Memo到底部，显示最新输入  SendMessage(memo1.Handle,WM_VSCROLL,SB_BOTTOM,0);

uses Jpeg  procedure TForm1.Button1Click(Sender: TObject);  var      imagestream:TMemoryStream;      jpg:TJpegImage;  begin      imagestream := TMemoryStream.Create();      jpg:=TJpegIma

利用delphi的TIdHTTP测试百度地图Web服务API发出申请后返回的字符串中的中文全部是乱码，请帮忙指导一下：代码：procedure TForm1.Button2Click(Sender: TObject);var  stream: TStringStream;  idHttpObj: TIdHTTP;  url: string;  fBaiduKey: st

Report report = new Report();            report.Load(Getreppp() + "123456.frx");            //report.RegisterData(ds);            ((TextObject)report.FindObject("Text1")).Text = ds.Tables["Table

Delphi 在启动应用程序时与 C 语言一样会传递命令行参数给应用程序，第一个参数（索引号为零）表示应用程序本身的文件名（包括完整的路径），这个 String 参数由函数 ParamStr(0) 返回。 　　顺便说一句，Delphi 提供了分析文件名的多个函数，如果你需要从文件名中得到路径名，可用下面的两个函数，这两个函数有一点点微小的差别：　　ExtractFilePath(Fil

(* 相对路径和绝对路径的转换 *)      unit xPath;      interface    uses ShlwApi, Windows, SysUtils;      ///   /// 取绝对路径的函数。需要引用 ShlwApi.pas  ///   /// 参考路径  /// 相对路径  ///   ///

function UnixDateToDateTime(const USec: Longint): TDateTime;const cUnixStartDate: TDateTime = 25569.0; // 1970/01/01begin Result := (Usec / 86400) + cUnixStartDate;end;

select FROM_UNIXTIME(1464973385.641,'%Y-%m-%d %H:%i:%s');select UNIX_TIMESTAMP('2016-06-04 01:03:05');结果：FROM_UNIXTIME(1464973385.641,'%Y-%m-%d %H:%i:%s')2016-06-04 01:03:05UNIX_TIMESTAMP('2016

第一种方法：select current_date；mysql> select current_date as Systemtime;+------------+| Systemtime |+------------+| 2009-07-29 |+------------+ 第二种方法：select now()mysql> select now(

Delphi中表示跳出的有break，continue，abort，exit，halt，runerror等1.break　　强制退出最近的一层循环（注意：只能放在循环里；而且是只能跳出最近的一层循环），用于从for、while、repeat语句中强制退出　　类似于C/C++等语言中的break的功能 2.continue　　用于从for、while、

//以下资料来自大富翁论坛。/判断线程是否释放 //返回值：0-已释放；1-正在运行；2-已终止但未释放； //3-未建立或不存在 function TFrmMain.CheckThreadFreed(aThread: TThread): Byte; var i: DWord; IsQuit: Boolean; begin if Assigned(aThread) then begin IsQui

在INDY10的IDTCPSERVER组件的OnExecute事件中，如果要获取对方的IP、端口和本机对应的线程ID，与INDY9 有所不同。本例是利用INDY10组件时，获得上述参数的代码。 uses IdSchedulerOfThread;.....procedure TForm1.IdTCPServer1Execute(AContext: TIdContext

在主界面的implementation  {$R *.dfm} 下放入以下代码：procedure PatchInt3;var NOP: Byte; NTDLL: THandle; BytesWritten: DWORD; Address: Pointer; begin if Win32Platform Exit; NTDLL := GetModuleHan

function RandomStr(majuscule:boolean;lowercase:boolean;number:boolean;digit:integer):string;//大写字母,小写字母,数字,字符串的位数var i: Byte; s: string;beginif majuscule thens := 'ABCDEFGHIJKLMNOPQRSTUV

我win10系统试的追答一、在private下面 procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY; //热键声明。二、var HotKeyId: Integer; //全局变量。三、FormCreate事件里写。1、HotKeyId := GlobalAddAtom('MyHotK

mysql下如何执行sql脚本首要步骤(一般可省略):开启mysql服务(默认是开机时就自动运行了):控制面板-->管理工具-->服务,在里面找到名称为mysql的项,双击就可看它的服务状态是启动还是停止,把它设为启动连接mysql:在命令行下输入 mysql -h localhost -u root -p回车,然后输入密码即可;或直接运行mysql自带的连接工

方法1 若有SQL脚本a.sql, b.sql, 其目录在f盘根目录下, 则可再写一个SQL脚本c.sql(假设其目录也在f盘根目录下, 也可以在其他路径下)如下: source f:/a.sql; source f:/b.sql; 然后执行source f:/c.sql 即可.方法2 方法1的不便之处在于, 要为每个脚本写一句代码, 若有成千上万个, 这样写便不现实.

转载▼标签： 分包 目录结构 压缩文件 目标目录 信息保存分类： 编程语言VclZip用法详Vclzip控件主要的类为TVclUnZip 和TVclZip 其中，TVclZip继承自TVclUnZip。网上的转帖用法： function　Zip(Zip

cmd:='echo d | Xcopy '+BasePath+' '+TargetPath+' /s/e';    i:=ShellExecute(Handle,nil,'cmd.exe',PChar('/K '+cmd),nil,SW_HIDE);ShellExecute(Handle,nil, 'cmd.exe',pchar('/C '+GetCurrentDir

dbimage中如何装载jpg文件  2015-02-27 20:44:15|  分类： 电脑|举报|字号 订阅      下载LOFTER我的照片书  |dbimage中如何装载jpg文件  修改TDBImage的源碼. 具體操作如下:1

修改TDBImage的源碼. 具體操作如下: 1.找到Delphi6\Source\DBCtrls.pas,將其拷貝至目錄Delphi6\Lib中. 2.打開Delphi6\Lib\DBCtrls.pas,在uses中加入JPEG. 3.修改TDBImage.LoadPicture過程.新代碼如下: procedure TDBImage.LoadPicture; var  

mysql中对字符串排序，字符串中有数字有汉字，想按数字的大小来进行排序。仅仅用order by排序，效果不是想要的。        sql语句为：[sql] view plain copyselect id,dict_name,type_code from t_dictionary  where type_code='GRADE' 

The following Socket errors reported in Trace Log of config screen: Socket error 10004 - Interrupted function callSocket error 10013 - Permission deniedSocket error 10014 - Bad addressSocket

客户端向另一个客户端传送文件，不通过服务端中转那一个很重要的点是，这个客户端也要放一个IdTCPServer，也就是说这个客户端既是客户端，当接收文件的时候也是服务端，必须相应其它客户端对它的连接，这个时候客户端相当与服务端，好了，明白这个道理就好办了A客户端（放一个IdTCPClient控件，发送文件）procedure TFormFileSe

{测试IP地址能否PING通}function ping(url: string): Boolean;var  i: Integer;  rst: Boolean;  err: String;  icmpClient: TIdICMPClient;begin  i:= 0;  rst:= False;  icmpCli

这种问题的本质其实就是字符编码问题，只要统一下客户端和服务器的字符编码就行。网上的解决办法一种就是用base64编码后发送，然后另一端解码。另一种就是在readln和writeln时统一编码格式。如这里回答的：[delphi] view plain copy//客户端写,读类似  IdTCPClient1.IOHandle

var  I: Integer;  ConnContext: TIdContext;begin  with IdTCPServer1.Contexts.LockList do  try    for I := 0 to Count - 1 do begin      ConnContext := TIdContext(Items[I]);

发送结构体：TMyData = record      id:Integer;      Name:Array[0..20] of Char;      Sex:Array[0..10] of Char;      Age:Byte;      Address:Array[0..256] of Char;      UpdateTime:double;  end;

最近一个项目，最开始使用IdTcpServer，在大压力测试的时候，只连接了800个多一点的客户端（每个客户端连接上之后每秒钟发送一个几十字节的报文，服务器应答）。但是持续的时间不会超过10分钟，服务器就会挂掉（经常是服务器突然关闭消失，任何提示都没有）。后来优化了互斥量之后，可以连接到1000多个客户端。但是服务器消失的问题依然存在。    今天再一台双CPU，4G内存的服务器上试验了下，居

命令查看TIME_WAIT连接数netstat -ae|grep "TIME_WAIT" |wc -l早上登陆服务器的时候输入netstat -an|grep mysql发现存在大量TIME_WAIT状态的连接tcp        0      0 127.0.0.1:3306              127.0.0.1:41378             T

查看mysql数据库连接数、并发数相关信息 1.mysql> show status like 'Threads%';+-------------------+-------+| Variable_name     | Value |+-------------------+-------+| Threads_cached    | 58    ||

procedure TForm1.Button1Click(Sender: TObject);var pwdset:IMsRdpClientAdvancedSettings;begin    Mstsc1.Server:=edtIP.Text;    Mstsc1.UserName:=edtName.Text;         if Mstsc1.A

  真实业务场景的考虑按照支付宝或者微信支付的开发手册的说法，一个标准的客户端接入支付业务模型应该是这样的，我忽略时序图，只用文字描述：用户登录客户端，选择商品，然后点击客户端支付。客户端收集商品信息，然后调用自己业务平台的预付款接口。业务平台根据客户端提交的商品信息，生成自己的订单号等内容，并按照第三方支付的要求对订单信息进行拼装组合，并编码和签名。业务平台返回签名后的订单信息给客户端。客户端根...