1,WinExec():   WinExec主要运行EXE文件,不能运行其他类型的文件.不用引用特别单元.   原型:UINT WinExec(exePath,ShowCmd)   示例,我想要用记事本打开"C:\HDC.TXT",以正常方式运行:WinExec(pChar('notepad c:\taoyoyo.txt'),SW_SHOWNORMAL);    参数说明: --xePath:命令行参数.注意,要用pChar转化一下. --ShowCmd:外部程序的运行方式.其取值如下

如果类的一个成员函数的返回值是string类型,需要注意一个问题 其返回值可能是错误的 例如函数的实现如下 function GetString( s: string ): string;begin  Result := Result + s;end; 调用方式如下: procedure test();var  i: Integer;  s: string;begin    s := '';    s := GetString( IntToStr( 1 ) );    s := GetStrin

方法1: function test(var a,b,c:integer):integer; begin end; 方法2: type info = record name:string; age : integer; end; function test():info; var myinfo : info; begin myinfo.name := '张三'; myinfo.age := 18; result := myinfo; end; 应用: var myinfo : info; beg

//----------------------Delphi------------------- procedure GetSqlData(ASource: PChar; ADest: PChar; ADestSize: Integer); stdcall; var  S: string; begin  if ASource = nil then Exit;  S := Format('%s 路过!',[ASource]);  Move(S[1], ADest^, Min(ADestSize,

1,问题描述 最近发现vb6调用delphi DLL中的函数并返回字符串时出现问题,有时正常,有时出现?号,有时干脆导致VB程序退出 -- :: 将金额数字转化为可读的语音文字:1转化为1元 ????@ 元 ???? og\SS_log.txt .eP K : 2,原因分析 delphi中函数声明如下: function ss_ConvertMoney2Str(mmje:double): PChar; stdcall; VB6中对应的函数声明如下: Public Declare Function

在之前的博文中,我提到新的存根生成器框架具有生成Delphi客户端存根所需的功能,使得开发Delphi智能客户端非常容易,完全支持编译时的类型检查和IDE类/属性帮助. 我没想到会把它包含在即将发布的kbmMW版本中,但我无法自控.... 必须添加它才能生成相当完整的初始存根生成器. 存根生成器将生成普通的Delphi代码,需要kbmMW智能客户端功能进行编译.但代码已完成,并包含所需的所有单元引用.如果您使用的是包含对象的自定义单元,则必须将这些单元与生成的存根代码一起提供给Delphi客户端

1.获取不带扩展名的文件名方法,利用ChangeFileExt函数修改传入参数的扩展为空,并不会对文件本身产生变更. ChangeFileExt(ExtractFileName('D:\KK\Test\123.txt'),''); //返回 123 2.获取上级文件夹路径的方法. ExtractFileDir('D:\KK\Test\')+'..'; //返回 D:\KK\ 3.获取完整文件或文件夹路径中的驱动器. ExtractFileDrive('D:\KK\Test\'); //返回 D:

CHROMIMU与JS交互的测试 好东西 谷歌浏览器 学习 研究  http://blog.csdn.net/grassdragon/article/details/51659798 Chromimu与JS交互的测试 2016-06-13 18:30 55人阅读 评论(0) 收藏 举报  分类: Chrome 版权声明:本文为博主原创文章,未经博主允许不得转载. 测试一 为解决ExecuteJavascript无法得到返回值的问题,尝试采用JS Dialog和OnJsDialog的方法. 测试结

[转]WinExec.ShellExecute和CreateProcess及返回值判断方式 http://www.cnblogs.com/ziwuge/archive/2012/03/12/2392472.html 有三个API函数可以运行可执行文件WinExec.ShellExecute和CreateProcess.CreateProcess因为使用复杂,比较少用. WinExec主要运行EXE文件. ⑴ 函数原型: UINT Win Exec(LPCSTR lpCmdLine, UINT u

从Delphi 2009开始,DataSnap技术发生了很大的变化,并在Delphi 2010和Delphi XE的后续版本中得到了持续的改进.Delphi 2009之前的DataSnap,虽然也实现了对中间层的方法调用,但那是基于COM技术的,实现起来比较麻烦,而且最关键的,是不能直接返回数据集(TDataSet).如今,基于JSON的DataSnap,已经脱离了COM的束缚,可以很方便地直接返回数据集.我们在开发多层的数据库应用时,就可以采用全新的方式来进行,即客户端的所有数据查询和更新,可

在C/C++等语言中,函数执行到 return 部分之后,将立即停止函数的执行,并返回值 但是在Delphi中不同 函数中,执行到result时,并不同于比如 C/C++ 中的 return,跳出函数,而是会继续执行下去,直到函数结束 下列代码: function(var A:string):string; var S,S1,S2:string; begin Result := ''; //此处将继续往下执行 ...... A:=S1; ...... A:=S2; ...... Result :

RTC作为delphi 的最专业的web 应用服务器,如果客户端要使用JSON 的话,那么使用RTC 应该也是一种 非常好的选择.下面我们做一个使用RTC web 服务器返回数据库JSON 的例子. 建立一个新的程序窗体,放置如图的控件:

由项目需要,需要扫描1200万行的文本文件.经网友的指点与测试,发现C#与Delphi之间的差距并不大.不多说,列代码测试: 下面是Delphi的代码: //遍历文件查找回车出现的次数 function ScanEnterFile(const FileName:string):TInt64Array; var   MyFile:TMemoryStream;//文件内存   rArray:TInt64Array;       //行索引结果集   size,curIndex:int64;//文件大

Delphi 可以像JavaScript 脚本语言一样使用GetElementByID方法访问网页中指定ID的元素,一般要配合TWebBrowser组件使用.首先使用TWebBrowser浏览网页,然后访问网页的元素,例如: procedure TForm1.Button1Click(Sender: TObject);var  aElement: OleVariant;begin  aElement := WebBrowser1.OleObject.Document.GetElementByID

MakeObjectInstance应该不会帮助处理(接收)消息回调函数的返回值,可是有时候又确实需要这个返回值,这可怎么办呢?我是看到这段文字的时候,想到这个问题的: 当WM_PAINT不是由InvalidateRect产生时,即由最大化,最小化等产生时,或者移动产生(移动有时只会产生WM_ERASEBKGND消息)系统先发送WM_ERASEBKGND消息,再发送WM_PAINT消息. 如果处理WM_ERASEBKGND消息时返回FALSE,BeginPaint标记pt.fErase 为TRU

     今天遇到一个很隐蔽的 Delphi 问题,不知做了什么,有一个功能总是不能使用,后来跟踪以下发现是因为 Screen.DataModuleCount 总是返回 0,而程序中一个函数正好要用到它.找来找去都没找到解决办法: 用来好多方法均没遇到这种情况,于是后面就使用了最土的土照,一个个单元排除法,最后在其中一个单元惹得祸,只要不加入这个单元到工程就OK,这下 Screen.DataModuleCount 也正常了.     可是这个单元有什么魔法会导致这个问题呢,最后通过排查法找到,是

用delphi的idhttp Get一个url如下: http://117.135.237.4:9090/agent/api/treatmentModeUpdate?userName=VDAwMIMQ==&userPwd=VDAjIxMQ==&centerNo=NTIyMj2&hospCode=Nz3MA==&Year=MjAxOA== 用浏览器打开这个地址,服务器会返回以下json字样: {"Message":"ob7FqbrPvdO/2sz

示例存储过程:create procedure proc_loginusername varchar(20),password varchar(20)asdeclare @result intselect @result=count(*) from loginuser where user=@username and pass=@passwordif @result=0return 0return 1go Delphi代码:var ret:integer;......      with ADO

delphi 返回所有URL USER MSHTMLprocedure TfrmWebEmail.btn5Click(Sender: TObject);var Doc: IHTMLDocument2; Len: Integer; item: OleVariant; all: IHTMLElementCollection; I: Integer;begin Doc := ebdwbWeb.Document as IHTMLDocument2; all := Doc.links; Len := al

 cef3  如何加载 本地html 文件.   请教老师[吐槽]常忘<run_fan@qq.com>  22:21:45@lazarus 下载cef3中的范例中就有  [吐槽]常忘<run_fan@qq.com>  22:22:13其中一个是怎么和js进行数据传递的.[活跃]lazarus(964489899)  22:22:25  是哪个[吐槽]常忘<run_fan@qq.com>  22:22:34cefclient中就有[活跃]lazarus(964489899