Delphi7调用C#的webservice,在windows2008下不能运行??
程序在win7,64位和XP,32位下没问题,都正常,只是在window2008下,不能运行,提示错误:Access violation at address 02496741. Write of address 02496741.检查来,检查去,发现是出在了这行代码上:edit1.Text := (HTTPRIO1 as WebService1Soap).HelloWorld;解决办法:...
程序在win7,64位和XP,32位下没问题,都正常,只是在window2008下,不能运行,提示错误:Access violation at address 02496741. Write of address 02496741.检查来,检查去,发现是出在了这行代码上:edit1.Text := (HTTPRIO1 as WebService1Soap).HelloWorld;解决办法:...
var m_bSort:Boolean; //控制正反排序的变量 implementation {$R *.dfm} //ListView排序的回调函数,默认的是快速排序法,也可以自己在这里做算法 function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; ...
uses DateUtils;DateTimeToUnix(Now)可以转换到unix时间,但是注意的是,它得到的时间比C语言中time()得到的时间大了86060,这是因为Now是当前时区的时间,c语言中time()是按格林威治时间计算的,北京时间比格林威治时间多了8小时,DateTimeToUnix(Now)-86060 就和c语言中time()得到的一样了。但我进一步研究DateTim...
我的机器上先装了Delphi6,之后又装了Delphi2006,昨日将Delphi2006卸载后,Delphi相关的.dpr、.pas等文件都既不见了图标又失去了关联,Delphi6没有自动恢复文件关联的功能。Windows命令assoc[.ext[=[fileType]]],.ext:指定跟文件类型关联的文件扩展名,fileType 指定跟文件扩展名关联的文件类型。在命令行执行以下命令即...
Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用:首先看它的声明:function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式,另外一种是三个参数的,主要区别在于它是线程安全的,...
先引用delphi自带的单元uses EncdDecd;然后就可以使用下面二个函数了:///将Bitmap位图转化为base64字符串function BitmapToString(img:TBitmap):string ;var ms:TMemoryStream; ss:TStringStream; s:string;beginms := TMemoryStream.Create; ...
1.什么是 MAP 文件?简单地讲,MAP 文件是程序的全局符号、源文件和代码行号信息的唯一的文本表示方法,它可以在任何地方、任何时候使用,不需要有额外的程序进行支持。2.DELPHI下生成MAP文件的方法: 偶只知道下面两种,如果谁知道其他的方法,敬请告知,多谢! 生成详细的MAP信息的方法: 1). project -> options -> Linker -> Map...
在Delphi中,特别是在写管理系统软件时,经常要用到 FormatDateTime 以将 TDateTime 格式的日期时间转换成字符串形式的值显示或保存起来,或者用 StrToDateTime将字符串形式的日期时间转换成 TDateTime 然后再做其他操作。在进行时间或日期的转换时,会使用系统当前设定的时间日期格式。而如果时间日期格式与字符串中的表示方式不相符,会使转换过程 失败。例如...
procedure TFrm_KhbNewView.edt_cl_mbqssKeyPress(Sender: TObject; var Key: Char);begin if not(key in['0'..'9',#8])then //限制只输入数字 begin key:=#0; ...
在delphi中没有能把字符串直接保存为文件的方法,也没有将文件直接作为字符串读出的方法。没有能把字符串转化为内存流的方法,也没有能把内存流转化为字符串的方法。而这里有四个函数恰能做到。代码如下:function StringToFile(mString: string; mFileName: TFileName): Boolean;{ 返回字符串保存到文件是否成功 }varvFileCha...