BertB
Members-
Content Count
7 -
Joined
-
Last visited
Everything posted by BertB
-
No, for a personal project the cost of a license might be too high. If the company you work for is paying the license, I definitely recommend the DevExpress components.
-
Check out DevExpress Their grid can do what you need, but the pricing might be a problem for you.
-
Delphi 12.0 - Cannot find implementation of method ... - Multiline Strings
BertB posted a topic in VCL
In Delphi 12.0 multi line strings (as described in https://blog.marcocantu.com/blog/2023-09-yukonbeta-stringliterals.html) can cause error message 'Cannot find implementation of method ...' when clicking on a control. Add a new form to your application, add a Button. implementation {$R *.dfm} procedure TForm1.Test; var Query: string; begin Query := ''' SELECT COUNT(*) FROM test '''; end; procedure TForm1.Button1Click(Sender: TObject); begin // end; Procedure Test is private. The code compiles and runs as expected but during design time it caused me a little headache. It turns out that CodeInsight (or something else) is treating '(*' as the start of a comment. Change the SQL statement to SELECT COUNT ( *) FROM test Double clicking on the Button now finds its implementation. Just wondering it this has already been fixed in version 12.1. -
Sometimes I need to download large files, so instead of saving ResponseStream to file, I change my code to use: SslHttpRestData.HttpMemStrategy := HttpStratFile; SslHttpRestData.HttpDownFileName := DiskFileName; SslHttpRestData.HttpDownReplace := True; The download is running and takes quite some time for large files, but the saved file is very often only 24576 bytes in size. 09:48:24 < HTTP/1.1 200 OK 09:48:24 < Content-Length: 144538644 09:48:24 < Content-Type: audio/mpeg 09:48:24 < Server: Microsoft-IIS/10.0 09:48:24 < Strict-Transport-Security: max-age=2592000 09:48:24 < X-Powered-By: ASP.NET 09:48:24 < Date: Tue, 30 Apr 2024 07:48:23 GMT 09:48:24 Opened new file OK: E:\store\2504.mp3.part 09:48:24 https:***2504.mp3, Downloading 0 of 138M 09:48:26 https:***2504.mp3, Downloading 27,0M of 138M 09:48:28 https:***2504.mp3, Downloading 61,3M of 138M 09:48:30 https:***2504.mp3, Downloading 97,5M of 138M 09:48:32 https:***2504.mp3, Downloading 125M of 138M 09:48:32 Request completed: 200 OK 09:48:32 Saved File OK: E:\store\2504.mp3, Size: 138M 09:48:32 https:***202504.mp3, Request completed, Size: 138M A correct file size is reported but that is not true. Disk space is no problem, using version 9.1 with Delphi 12. Am I doing something wrong, or what? Bert
-
HttpStratFile fails for large files
BertB replied to BertB's topic in ICS - Internet Component Suite
I think that I found the problem: Reset property HttpMemStrategy to HttpStratMem after download. -
HttpStratFile fails for large files
BertB replied to BertB's topic in ICS - Internet Component Suite
SslHttpRestData.DebugLevel := DebugHdr; SslHttpRestData.OnHttpRestProg := onSslHttpRestProg; Procedure onSslHttpRestProg logs Msg to a file. -
To avoid getting a logfile too big, I would like to have a separate logfile for every single day. So when I specify: IcsLogger.LogFileName := 'C:\Temp\MyProgram.log'; The following logfiles would be created: C:\Temp\20240410 MyProgram.log C:\Temp\20240411 MyProgram.log and so on. Alternatively 2024-04-10 is okay too.