上一页 1 ··· 153 154 155 156 157 158 159 160 161 ··· 203 下一页
摘要: unit FindDM;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ExtCtrls, jpeg;type TFindFrames = class(TFrame) edtValue: TEdit; cbFields: TComboBox; Label1: TLabel; Label2: TLabel; Timer: TTimer; procedure edtValueChange(Sender: TObject); 阅读全文
posted @ 2011-09-05 21:30 delphi中间件 阅读(186) 评论(0) 推荐(0)
摘要: 对于使用DLL包方式组织的项目,很多人都知道如果BUILD WITH RUNTIME PACKAGE不勾选上,会有很多的问题。所以一般会将所有的EXE和DLL项目的BUILD WITH RUNTIME PACKAGE勾选上。每当这时候,你以为万事大吉了。兴奋地编译项目,满怀期待地运行,往往一运行却报错:a class named Txxx exists。。。。。。,遇到这个问题的时候,很多人傻眼了,根本不知道该如何解决。首先分析一下出现这个错误的原因:BUILD WITH RUNTIME PACKAGE勾选上意味着,整个项目都将使用唯一的一份VCL类,编译器会通过检查类名来判断该类是否已经创建 阅读全文
posted @ 2011-09-04 15:33 delphi中间件 阅读(413) 评论(0) 推荐(0)
摘要: vars:string;p:pchar;a:array[1..20] of char;那么三者之间的转换如下:1、字符串到PChar p:=PChar(s);2、PChar到字符串 s:=p;3、PChar到字符数组 StrCopy(@a,p);4、字符数组到PChar PChar(@a);5、字符串与字符数组之间的转换就只有通过PChar来中转了。例如下面这个例子:procedure TForm1.btn1Click(Sender: TObject);varstr:array[1..10] of char;beginStrCopy(@str,PChar(mmo1.Text));mmo... 阅读全文
posted @ 2011-09-03 21:23 delphi中间件 阅读(259) 评论(0) 推荐(0)
摘要: -- 完全备份-- 注意: 一切都从完全备份开始DECLARE @Path VARCHAR(1000), @FileName VARCHAR(1000),@WeekDay VARCHAR(20)SET @WeekDay = CASE DATEPART(WEEKDAY, GETDATE()) WHEN 1 THEN '星期天' WHEN 2 THEN '星期一' WHEN 3 THEN '星期二' WHEN 4 THEN '星期三' WHEN 5 THEN '星期四' WHEN 6 THEN '星期五' 阅读全文
posted @ 2011-09-03 21:21 delphi中间件 阅读(368) 评论(0) 推荐(0)
摘要: ALTER PROCEDURE MKTG_DiffeRenceDailyReport@CustomerName varchar(100),@ShipDate datetimeASBEGINSet NoCount ON DECLARE @NoReceivedPackages varchar(2000), @CurrBillTrackId varchar(30), @CurrPackageId varchar(30) SELECT a.BillTrackId, a.Pieces, (case isnull(a.Canceled, 0) when 1 then '√' end) as 阅读全文
posted @ 2011-09-03 21:19 delphi中间件 阅读(271) 评论(0) 推荐(0)
摘要: 方法一:WebBrowser1.Silent := True;WebBrowser1.Navigate(URL);repeat Application.ProcessMessages;until WebBrowser1.ReadyState = READYSTATE_COMPLETE;WebBrowser1.Navigate( 'javascript:document.getElementById("detailFormid").submit();');repeat Application.ProcessMessages;until WebBrowser1. 阅读全文
posted @ 2011-08-28 07:16 delphi中间件 阅读(622) 评论(0) 推荐(0)
摘要: uses jpeg,EncdDecd,ZLibEx//字符串base64 编码Function StrtoBase64(const Str:string):string;beginresult:=EncodeString(Str);end;//字符串base64 解码Function Base64toStr(const Base64:string):string;beginresult:=DecodeString(base64);end;//Jpeg base64 编码Function JpegToBase64(Jpeg : Tjpegimage):string;var jpegstream 阅读全文
posted @ 2011-08-14 13:41 delphi中间件 阅读(444) 评论(0) 推荐(0)
摘要: uses ZLibExprocedure VariantToStream(const V: OLEVariant; Stream: TStream);var P : Pointer;begin Stream.Position := 0; Stream.Size := VarArrayHighBound (V, 1) - VarArrayLowBound (V, 1) + 1; P := VarArrayLock (V); Stream.Write (P^, Stream.Size); VarArrayUnlock (V); Stream.Position := 0;end;procedure 阅读全文
posted @ 2011-08-14 13:19 delphi中间件 阅读(291) 评论(0) 推荐(0)
摘要: function Decrypt(Src: string; Key: string): string;var KeyLen, KeyPos, Offset, SrcPos, SrcAsc, TmpSrcAsc: Integer; Dest: string;begin KeyLen := Length(Key); if KeyLen = 0 then Key := cPasswordKey; KeyPos := 0; Offset := StrToInt('$' + Copy(Src, 1, 2)); SrcPos := 3; while SrcPos < Length(S 阅读全文
posted @ 2011-08-14 13:08 delphi中间件 阅读(310) 评论(0) 推荐(0)
摘要: 1.窗体半透明: Alphablend属性为true;Alphablendvalue的值为1002.窗体透明:formCreate:Self.TransparentColor := True;Self.TransparentColorValue := clBlack;self.color := clblack;3.隐藏桌面图标var h: HWND;beginh := FindWindow('Progman', nil); {Progman 是桌面窗口的类名}ShowWindow(h, SW_HIDE);4.显示桌面图标var h: HWND;beginh := FindWin 阅读全文
posted @ 2011-07-14 22:11 delphi中间件 阅读(1850) 评论(0) 推荐(0)
上一页 1 ··· 153 154 155 156 157 158 159 160 161 ··· 203 下一页