Delphi

问题 I have an ISAPI DLL installed under a directory like: c:\inetpub\wwwroot\emsserver\emsserver.dll This is a Delphi RAD Server app. In IIS Manager (Windows 10), under Root (computer name) -> Sites -> Default Web Site -> Emsserver, I have a handler set up to handle "*.dll" requests with that DLL. The end result is I can access the app like: http://localhost/emsserver/emsserver.dll/some-action That works fine. All good there, output as expected. But the URL isn't very end user friendly. Question:

问题 I have an ISAPI DLL installed under a directory like: c:\inetpub\wwwroot\emsserver\emsserver.dll This is a Delphi RAD Server app. In IIS Manager (Windows 10), under Root (computer name) -> Sites -> Default Web Site -> Emsserver, I have a handler set up to handle "*.dll" requests with that DLL. The end result is I can access the app like: http://localhost/emsserver/emsserver.dll/some-action That works fine. All good there, output as expected. But the URL isn't very end user friendly. Question:

问题 I have a Delphi DLL that works when called by delphi apps and exports a method declared as: Procedure ProduceOutput(request,inputs:widestring; var ResultString:widestring);stdcall; On the C++ side I have tried: [DllImport( "ArgumentLab.dll", CallingConvention = CallingConvention.StdCall, CharSet=CharSet.WideString )]; extern void ProduceOutput(WideString request, WideString inputs, WideString ResultString); WideString arequest = WideString(ComboBox1->Text); WideString ainput = "<xml> Input

问题 I have a specific driver(a firewall driver) which i managed to load with delphi but i dont know how to call his function inside my program. The specification for this functions on driver are like folows : Firewall functions can be called with DeviceIoControl (DDoSflt) IoControl codes (needed for DeviceIoControl) are as following: 0x2220c0 = IOCTL_START Input: none Output: none After loading the driver, call this function to install firewall hook. 0x2220c4 = IOCTL_STOP Input: none Output: none

问题 I have a specific driver(a firewall driver) which i managed to load with delphi but i dont know how to call his function inside my program. The specification for this functions on driver are like folows : Firewall functions can be called with DeviceIoControl (DDoSflt) IoControl codes (needed for DeviceIoControl) are as following: 0x2220c0 = IOCTL_START Input: none Output: none After loading the driver, call this function to install firewall hook. 0x2220c4 = IOCTL_STOP Input: none Output: none

问题 Is it possible to disallow minimizing of a form\application in Delphi ? I found the following code: procedure TForm1.WMShowWindow(var Msg: TWMShowWindow); begin if not Msg.Show then Msg.Result := 0 else inherited; end; But if I press windows key + M or WindowsKey + D, then it still gets minimized. Is there a way to prevent this? 回答1: Setting BorderIcons.bsMinimized to false (removing it from the set) will work for WindowsKey + M but will not stop WindowsKey + D. I think that makes sense. The

问题 I saw an installed application, that feeds some XML data from the vendor's website and displays it in the Main Form window. Simple stuff, I suppose, but whgat I noticed was that, even when I close the Application in the system tray, tomorrow morning (at exactly 12:00AM) it pops ups again! This is so cool. I am not sure that it was written in Delphi, probably some .NET IDE or somehting. Can Delphi XE2 achieve this? If so, how can I get that to work? 回答1: Windows can achieve this:

问题 i working with overload of operator, and i have this situation, fra a side: unit _TIns; interface uses _TExtract; type TIns = record private type TInsArray = array [1..90] of Boolean; var FInsArray: TInsArray; public class operator Implicit(const Value: TExtract): TIns; class operator Implicit(const Value: TIns): TExtract; end; implementation // Code end. and, from other side: unit _TExtract; interface uses _TIns; type TExtract = record private type TExtractEnum = 1 .. 90; var FExtractEnum:

问题 i working with overload of operator, and i have this situation, fra a side: unit _TIns; interface uses _TExtract; type TIns = record private type TInsArray = array [1..90] of Boolean; var FInsArray: TInsArray; public class operator Implicit(const Value: TExtract): TIns; class operator Implicit(const Value: TIns): TExtract; end; implementation // Code end. and, from other side: unit _TExtract; interface uses _TIns; type TExtract = record private type TExtractEnum = 1 .. 90; var FExtractEnum:

问题 There has been a change to the HTTPRIO.HTTPWebNode.OnBeforePost event in Delphi 10.3. Before Delphi 10.3, the event handler was defined this way, and it worked perfectly: procedure TForm1.HTTPRIO1HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer); var auth: String; begin auth := 'Authorization: Basic ' + IdEncoderMIME1.EncodeString('user:password'); HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD); end; In Delphi 10.3, the Data parameter is gone