delphi
文章平均质量分 54
cnmmbd
这个作者很懒,什么都没留下…
展开
-
delphi中通过TIdhttp控件上载文件
附带的例子由于indy版本的问题,有点小问题(其实用文本工具修改一下dfm,去掉新增的属性就可以了)。我干脆把源码给贴出来吧,版权属于原作者一.用于实现form流格式的单元(MsMultiPartFormData.pas)unit MsMultiPartFormData;interfaceuses SysUtils, Classes;const CONTENT_TYPE = multipar原创 2007-09-12 17:44:00 · 4978 阅读 · 0 评论 -
delphi 使用进度条控件
拉一个进度条(在win32控件栏里),一个按钮到窗体中. procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin ProgressBar1.Min:=0; ProgressBar1.Max:=100; for i:=1原创 2007-09-15 20:32:00 · 5006 阅读 · 0 评论 -
怎么样得到文件的大小?(DELPHI)
var vSearchRec: TSearchRec; begin FindFirst(, faAnyFile, vSearchRec); Caption := IntToStr(vSearchRec.Size); FindClose(vSearchRec); end;原创 2007-09-13 11:55:00 · 780 阅读 · 0 评论 -
delphi 中使用socket和多线程时和输入法切换冲突的怪异问题
delphi 中使用socket和多线程时和输入法切换冲突的怪异问题: 在delphi中用到socket的一些组件(比如TClientSocket,TSocketConnection等),并且这些组件设置未 notBlocking模式/supportCallback时,如果程序有多线程在运行(循环或者suspend),这是如果在程序中可以输入的地方切 换输入法,则回造成程序失去反应。再测试,发现在原创 2007-11-30 20:59:00 · 1757 阅读 · 1 评论 -
delphi 结束进程
在网上搜了一下delphi结束进程的代码,发现当要结束的进程名是当前的进程并且该程序开了多个的话,会因为当前进程在结束其他进程前把自己关掉而不能结束所有同名的进程,所以修改了一下:注:TProcessEntry32 需要引用单元 uses TLHelp32; function killProcess(iProcessName:string):boolean;var HandleSna原创 2009-02-06 15:11:00 · 2781 阅读 · 2 评论