Delphi

问题 I have a form one which I want to show a file open dialog box before the full form opens. I already found that I can't do UI related stuff in FormShow, but it seems that I can in FormActivate (which I protect from being called a second time...) However, if the user cancels out of the file open dialog, I want to close the form without proceeding. But, a form close in the activate event handler generates an error that I can't change the visibility of the form. So how does one do some UI related

问题 I have a procedure which takes a screenshot of a monitor and optionally includes the mouse cursor in the snapshot. The original function was only for one monitor. When drawing the mouse cursor, it currently shows properly only on the Main Monitor. But, I can't figure out how to position it on any other monitor. See the comments towards the end of this procedure. procedure ScreenShot(var Bitmap: TBitmap; const MonitorNum: Integer; const DrawCursor: Boolean; const Quality: TPixelFormat); var DC

问题 I am trying to resolve an access violation in a Delphi XE7 application which is occurs in this code, which is part of the Jedi VCL JvMemoryDataset component (current source at Github): begin Data^ := Ord(Buffer <> nil); Inc(Data); if Buffer <> nil then Move(Buffer^, Data^, CalcFieldLen(Field.DataType, Field.Size)) <---------- AV here else FillChar(Data^, CalcFieldLen(Field.DataType, Field.Size), 0); end; The code sporadically causes a read access violation at address 04020111. Is there an

问题 I am trying to resolve an access violation in a Delphi XE7 application which is occurs in this code, which is part of the Jedi VCL JvMemoryDataset component (current source at Github): begin Data^ := Ord(Buffer <> nil); Inc(Data); if Buffer <> nil then Move(Buffer^, Data^, CalcFieldLen(Field.DataType, Field.Size)) <---------- AV here else FillChar(Data^, CalcFieldLen(Field.DataType, Field.Size), 0); end; The code sporadically causes a read access violation at address 04020111. Is there an

问题 I am trying to resolve an access violation in a Delphi XE7 application which is occurs in this code, which is part of the Jedi VCL JvMemoryDataset component (current source at Github): begin Data^ := Ord(Buffer <> nil); Inc(Data); if Buffer <> nil then Move(Buffer^, Data^, CalcFieldLen(Field.DataType, Field.Size)) <---------- AV here else FillChar(Data^, CalcFieldLen(Field.DataType, Field.Size), 0); end; The code sporadically causes a read access violation at address 04020111. Is there an

问题 This question already has answers here : Closed 7 years ago . Possible Duplicate: Splash Screen Programatically Show a splash screen while a database connection (that might take a long time) runs Which is the best place to initialize code such as loading INI file? I want first to show the form on screen so the user know that the app is loading and ONLY after that I want to call lengthy functions such as LoadIniFile or IsConnectedToInternet (the last one is REALLY slow). The OnCreate is not

问题 My goal is to upload a text file via HTTP post I am using Delphi 2009. Say for example to the following URL https://www.example.com/ex/exampleAPI.asmx/Process I understand it can be done by using the TIdHttp component. And the following call IdHttp1.Post(); But I cant figure out how to set up everything i.e. specifying the url and including the file to be posted. Thanks. 回答1: TIdHTTP has two overloaded versions of Post() that take a filename as input: var Response: String; Response := IdHTTP1

问题 My goal is to upload a text file via HTTP post I am using Delphi 2009. Say for example to the following URL https://www.example.com/ex/exampleAPI.asmx/Process I understand it can be done by using the TIdHttp component. And the following call IdHttp1.Post(); But I cant figure out how to set up everything i.e. specifying the url and including the file to be posted. Thanks. 回答1: TIdHTTP has two overloaded versions of Post() that take a filename as input: var Response: String; Response := IdHTTP1

问题 Is there any function/procedure as ReplaceString but for whole words on Delphi? I just need to replace substring to the new one when it's a whole word. For example: substring - > newstring substring, -> newstring substring123 -> substring 回答1: You can use the built-in regex library to do this. For example: {$APPTYPE CONSOLE} uses System.RegularExpressions; const InputString = 'a Substring, substring123, some more text'; begin Writeln(TRegEx.Replace(InputString, '\bsubstring\b', 'newstring',

问题 I'm trying to insert some information to MySQL with Pascal, but when I run the program I get the error unknown column 'mohsen' in field list This is my code procedure TForm1.Button1Click(Sender: TObject); var aSQLText: string; aSQLCommand: string; namee:string; family:string; begin namee:='mohsen'; family:='dolatshah'; aSQLText:= 'INSERT INTO b_tbl(Name,Family) VALUES (%s,%s)'; aSQLCommand := Format(aSQLText, [namee, family]); SQLConnector1.ExecuteDirect(aSQLCommand); SQLTransaction1.Commit;