delphi中间件

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

摘要： 应用场景：使用BROKER服务器来实现应用服务器群集的负载平衡。消息格式统一使用JSON格式的字符串。当然也可以使用XML格式或者使用结构体方式。但本次设计只使用JSON格式的字符串。因为JSON是国际标准，很多语言都支持它，当然XML也是国际标准，但它没有JSON这么轻量。结构体的话可能各语言之间会不兼容。SOCKET通讯协议发送消息的时候首先发送命令号，然后再发送JSON格式的。各种消息格式定义如下：客户端同BROKER服务器之间的消息传递：ClientCallBroker: #1 {"MT":"CCALLB"} 消息说明：客户端呼叫BROKER服务 阅读全文

摘要： 为了达到1:10000的连接，可以采用Server-Client的连接方式，而为了达到1:10000*100的连接，我们怎么办呢？一般会采用Client-> ConnServer -> LogicServer。这是技术背景。ConnServer在接受完Client 的连接后，将Logic Server 暴露给Client,并立刻断开连接。以后的数据交互就和Conn Server没有关系了，这种架构有很多的优势。线程是一个非常重要的概念，尤其是现在多核服务器的发展。当然，提到了线程自然应该说到线程之间的互斥。这也是服务器开发者们在开发最初最容易出现的问题。体现在一个资源或者多个资源在 阅读全文