摘要：
Universal Data Access Components Source Code Copyright 1997-2010, Devart. All Rights ReservedThere are two ways to compile and install UniDAC for Windows manually.I. Using IDEDelphi and C++ Builder for Win32 --------------------------------Run your IDE and walk through folowing steps: 1) Compile DA. 阅读全文
摘要：
Delphi从Internet下载文件 今天在做拍卖系统的时候，因考虑到网络状况问题，需要将拍品所有信息下载到本机，包括拍品图片，因此需要实现从Internet下载文件的功能。 下面是代码片段： private function DownloadFile(SourceFile, DestFile: string): Boolean; procedure URL_OnDownloadProgress(Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode:... 阅读全文
摘要：
好久没写技术文了 datasnap传大流。 完整代码，同时感谢叶兄传流的指点,（只公开十天）附：下面代码，转载请注明出处 ::code服务端：function TServerMethods1.DownLoadFile(AfileName: string): TStream;constSaveFolder = 'FSimage\';defaultName = 'Default.png'; // 此文件必须有//用默认文件处理不存在图片varALLpath: string;beginALLpath := LocalPath + SaveFolder + AfileN 阅读全文
摘要：
delphi 理解ParamStr演示代码如下::codeprocedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin self.Memo1.Lines.Add(IntToStr(ParamCount)); for i := 1 to ParamCount do begin self.Memo1.Lines.Add(ParamStr(i)); //self.Memo2.Lines.LoadFromFile(ParamStr(i)); 这个是用于第二种路径参数 end; end;ParamStr(0) 这个用... 阅读全文
摘要：
多线程编程(1) - 先入门再说。 多线程应该是编程工作者的基础技能, 但这个基础对我来讲的确有点难(起码昨天以前是这样). 开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解. 先试试这个:procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin for i := 0 to 500000 do begin Canvas.TextOut(10, 10, IntToStr(i)); end;end; 上面程序运行时, 我们的窗体基本是 "死" 的, 可以在你在程序运行期间拖动 阅读全文
摘要：
QQ2008自动聊天精灵delphi源码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,Registry, ExtDlgs, bsSkinShellCtrls, BusinessSkinForm, bsSkinBoxCtrls, bsSkinCtrls;type TTform1 = class(TForm) GroupBox1: TGroupBox; Bevel1:... 阅读全文
摘要：
使用Indy 10中TIdHTTP的例子：代码uses IdHttp;...function HttpGet(const Url: string; var Html: string): Boolean;var HttpClient: TIdHTTP;begin Result := False; HttpClient := TIdHTTP.Create(nil); try Html := HttpClient.Get(Url); Result := True; except on e: Exception do begin end; end; Htt... 阅读全文
摘要：
UniDAC使用日记1. UniQuery默认状态为行提交，使用前根据需要设置readonly或cachedupdates属性2. UniQuery.Filter默认大小写区分，请注意设置FilterOptions属性([foCaseInsensitive])，TVirtualtable也存在相同情况3. UniQuery默认情况下，有些varchar类型的字段有自动加了一个空格，请注意设置Options.TrimVarChar=true4. UniQuery在进行Insert时，若字段不能为null且前台操作未填写时，可能会报错，请设置RequiredFields=true5. UniQue 阅读全文