delphi中间件

摘要： 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); 阅读全文

摘要： 对于使用DLL包方式组织的项目，很多人都知道如果BUILD WITH RUNTIME PACKAGE不勾选上，会有很多的问题。所以一般会将所有的EXE和DLL项目的BUILD WITH RUNTIME PACKAGE勾选上。每当这时候，你以为万事大吉了。兴奋地编译项目，满怀期待地运行，往往一运行却报错：a class named Txxx exists。。。。。。，遇到这个问题的时候，很多人傻眼了，根本不知道该如何解决。首先分析一下出现这个错误的原因：BUILD WITH RUNTIME PACKAGE勾选上意味着，整个项目都将使用唯一的一份VCL类，编译器会通过检查类名来判断该类是否已经创建 阅读全文

摘要： 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... 阅读全文

摘要： -- 完全备份-- 注意: 一切都从完全备份开始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 '星期五' 阅读全文

摘要： 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 阅读全文

摘要： 方法一：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. 阅读全文

摘要： 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 阅读全文

摘要： 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 阅读全文

摘要： 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 阅读全文

摘要： 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 阅读全文