delphi pos

(source); BMP. Assign (Myjpeg); BMP. SaveToFile (dest); finally Bmp.free; Myjpeg. Free; End; End; ----------------------------------------------------------5.BMP convert to JPEG file Format function----------------------------------------------------------Procedure bmp2jpg (const source,dest:string;const scale:byte);VarMyjpeg:tjpegimage;Image1:timage;Beginimage1:= timage.create (application);Myjpeg:= tjpegimage.create;TryImage1.Picture.Bitmap.LoadFromFile (source);Myjpeg.assign (IMA

Transferred from: http://www.cnblogs.com/rexhu/p/5858866.htmlThe following installation environment is Win7 64-bit1. Install the Delphi10.1 Berlin version.2. Modify C:\Program files (x86) \embarcadero\studio\18.0\cglm.ini file[Embarcadero License Management]Rootdir=${module_dir}\.Licensedir=${rootdir}\licenseInfodir=${common_appdata}\embarcadero\18\.licensesSlipdir=${common_appdata}\embarcadero\18Regexe=licensemanager.exeLocktype=5[Embarcadero SLIP Files]slipfile=3. Add the "18" directory below

Use the MDI form in Delphi. The project file is as follows: Application. initialize;Application. createform (tmainform, mainform );Application. createform (taboutbox, aboutbox );Aboutbox. show;Aboutbox. Hide;Mainform. showmodal;Application. Run; If the order of creation of aboutform and mainform is reversed, opening an mdichild form in the main form will result in the following error. Can not create form, no MDI forms are currently active. Othe

Unit unit1; Interface UsesWindows, messages, sysutils, variants, classes, graphics, controls, forms,Dialogs, stdctrls; Type userarray = array of string; TypeTform1 = Class (tform)Edit1: tedit;Button1: tbutton;Procedure button1click (Sender: tobject );PrivateFunction split (S: string; dot: Char): userarray;{Private Declarations}Public{Public declarations}End; VaRForm1: tform1; Implementation Uses strutils; {$ R *. DFM} Function tform1.split (S: string; dot: Char): userarray;VaRSTR: userarray;I, J

The following installation environment is Win7 64-bit1. Install the Delphi10.1 Berlin version.2. Modify C:\Program files (x86) \embarcadero\studio\18.0\cglm.ini file[Embarcadero License Management]Rootdir=${module_dir}\.Licensedir=${rootdir}\licenseInfodir=${common_appdata}\embarcadero\18\.licensesSlipdir=${common_appdata}\embarcadero\18Regexe=licensemanager.exeLocktype=5[Embarcadero SLIP Files]slipfile=3. Add the "18" directory below the C:\ProgramData\Embarcadero\ directory, and then copy the

Need to refer to SHELLAPI unit;Procedure Tform1.button1click (Sender:tobject); var seinfo:tshellexecuteinfo; Exitcode:dword; Executefile, paramstring, startinstring:string; Begin Executefile: = ' c:\Windows\system32\Calc.exe '; Fillchar (Seinfo, SizeOf (seinfo), #0); Seinfo.cbsize: = SizeOf (Tshellexecuteinfo); With Seinfo do begin fmask: = see_mask_nocloseprocess; Wnd: = Application.handle; Lpfile: = PChar (Executefile); Paramstring can contain the applicatio

Since the initial value of the dynamic array in Delphi is not always 0, setlength is used before each use of a one-dimensional array, and then fillchar is generally used for clearing, however, if the array is more than dozens of MB, the efficiency of fillchar is very low. For this reason, I specifically wrote some optimization code for clearing the array or memory. Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlig

{ Diese unit kann in Ein package compiliert werden und erscheint danach im Delphi menu unter Hilfe. } {This unit can be compiled into a package and will then appear in the DelphiHelp menu.}Unit sdcsimpleexpert; Interface Uses toolsapi; TypeTsdcsimpleexpert = Class (tnotifierobject, iotamenuwizard, iotawizard)PublicFunction getidstring: string;Function getname: string;Function getstate: twizardstate;Procedure execute;Function getmenutext: string;End;

information of a CD you have already entered, you can select the entered CD first, then, click "Copy cd" to bring up the UI for entering the new CD, but the information in it has been automatically filled in, and it is exactly the same as the one already entered, in this case, you only need to modify the location to be modified. Prompt: If you want to obtain the maximum number of the current type during input or modification, double-click "※" next to the" CD number "to generate it automatically

There are a number of warnings available in Delphi xe2 that are not very well known ented. While you can control them in the Project Options dialog, and you can turn them on using {$ Warn} Directives or in command line compiler options, the documentation for the warning identifiers is currently pretty piecemeal, and there is no clear link between the project options, warning directive identifiers, and numeric identifiers. The{$ Warn}Compiler Dire

Principle: Put the exe that needs to be included into the input source file, compile it with the original program into an exe file, release the exe when the program runs for the first time, and then call the exe file. Steps: 1. Create an rc file. It can be written in any text editor. File Format: "Resource Name resource type file name ". For the resource type, if it is an exe file, it should be an EXEFILE, and if it is a binary file, it is RCDATA. Create a file float. rc: Code Code highlighting

Following last night's article: http://blog.csdn.net/yxf/archive/2006/09/28/1303281.aspx, write a method that uses Delphi to write a client. Also called last night's libss.dll. 1. Create a new console application, called Sampleservice.invoker. 2. File->new->other, Web services/wsdl Importer, fill in the location of the WSDL File or URL http://localhost/MyServices/ Sampleservice/libss.dll/wsdl/isampleservice, then click Finish, then click Finish, then

Delphi box and choose add, add shockwaveflashobjects_tlb to this package. In fact, the Delphi POS is used.9. In the pop-up dialog box, select the shockwaveflashobjects_tlb.pas file in the unit file name. This file is generally in the Delphi format installation directory.10. Click OK to load the shockwaveflashobjects_t

be similar to a function implemented using a recursive algorithm, but in fact there are some different, some improvements to recursion, may be in most cases faster than the recursive process, fast how much more difficult to decide. At least this estimate is that when the wildcard comparison is only used as a lookup substring, the time complexity of using the recursive algorithm is O (n*m), if the source string is "1111111111" substring "*11111112*". But this function I wrote would simplify the

Tags: style color io os using AR strong for dataSeptember 2014, Delphi Xe7 out, this time in the database technology, completely cast off from 1995Delphi 1.0 comes with the Borland database access technology. Thus declaring this continuingMore than 20 years of Delphi access to database technology into history.Throughout the 20 years of Delphi Database technology

Haven't sent a blog for a long time, do not know why not this thought to blog on the turn. Today, I'll send you a test of the previous period.E-mail is closely related to our work life, and many messages are delivered by mail. So e-mail is very important to us, although you can log in to the mailbox every time, but the message is always to log in through the site, but also a self-download, so that the operation in slow speed is more laborious. Now there are some very e-mail management tools, suc

Strategy is in the intent. with Strategy, the choice of algorithm is fairly stable. with State, a change in the state of the "context" object causes it to select from its "palette" of Strategy objects. State in Delphi This session consists of the development of a small application to read and pretty-print XML and CSV files. along the way, we explain and demonstrate the use of the following patterns: State, Interpreter, Visitor, Strategy, Command, Mem

Delphi 7 is a classic version. We recommend that you install Delphi 7 for software development under win2000/XP, and Delphi 2007 for software development under Vista. After Delphi 7 is installed, you should install Delphi 7 update Pack 1 immediately. If

--------Development Environment-------- Delphi 7 is a classic version. We recommend that you install Delphi 7 for software development under win2000/XP, and Delphi 2007 for software development under Vista. After Delphi 7 is installed, you should install Delphi 7 update Pa

chapter on custom part writing. Position and size are also read and write controlled. The definition is as follows: Property Position:longint read GetPosition write setposition; Property Size:longint read GetSize; As you can know, position is a read-write property, and size is readonly. The implementation of the position attribute is embodied in getposition and SetPosition. When the program is running, any read position value and assignment to position automatically triggers the private met