You can get useful memory usage information out of the Delphi runtime without using any direct Win32 calls: unit X; uses FastMM4; //include this or method will return 0. …. function GetMemoryUsed: UInt64; var st: TMemoryManagerState; sb: TSmallBlockTypeState; begin GetMemoryManagerState(st); result := st.TotalAllocatedMediumBlockSize + st.TotalAllocatedLargeBlockSize; for sb in st.SmallBlockTypeStates do begin result := result + … Read more
I’m very sure that I’m POSTing the right data Since it does not work – obviously you do not (or Delphi does not – that makes no difference for server). You should start usual debugging loop: Observe reference working behaviour. Observe your program behavior Spot the difference Eliminate the difference Check if the program works … Read more
Task Manager is not the right tool to detect memory leaks. Delphi allocates large blocks of memory and keeps them later for future use, so certain increase in allocated memory is expected even after you release all resources. Any other results (and more detailed answers) can be obtained only by using specialize memory analysis tools. … Read more
Major problems: The second parameter of InternetConnect should contain only the name of the server, not the entire URL of the server-side script. The third parameter of HttpOpenRequest should be the file name (URL) of the script, not the POST data! The actual POST data should be the forth parameter of HttpSendRequest. Minor problems INTERNET_OPEN_TYPE_PRECONFIG … Read more
This is the solution I’ve found, using ActiveX: First, register the Active X control like this: In Delphi, choose Component -> Import Component Click on “Type Library”, click Next Choose “Crystal ActiveX Report Viewer Library 11.5” Pick whatever Palette Page you want (I went with “Data Access”) Choose an import location Exit out of the … Read more
Using the Native API function NtQuerySystemInformation you can list all open handles from all processes. try this example program ListAllHandles; {$APPTYPE CONSOLE} uses PSApi, Windows, SysUtils; const SystemHandleInformation = $10; STATUS_SUCCESS = $00000000; STATUS_BUFFER_OVERFLOW = $80000005; STATUS_INFO_LENGTH_MISMATCH = $C0000004; DefaulBUFFERSIZE = $100000; type OBJECT_INFORMATION_CLASS = (ObjectBasicInformation,ObjectNameInformation,ObjectTypeInformation,ObjectAllTypesInformation,ObjectHandleInformation ); SYSTEM_HANDLE=packed record uIdProcess:ULONG; ObjectType:UCHAR; Flags :UCHAR; Handle :Word; … Read more
SFTP and “FTP over SSH” are two separate things, and neither involves SSL (as someone else has suggested). SFTP is a sub-protocol of SSH while “FTP over SSH” is good/bad ol’ FTP tunnelled through an SSH connection with port forwarding. Either way, what you’re after is a Delphi SSH library. I was unable to find … Read more
Variable capture vs value capture is simple enough. Let us suppose that two anonymous methods capture the same variable. Like this: Type TMyProc = reference to procedure; var i: Integer; P1, P2: TMyProc; …. i := 0; P1 := procedure begin Writeln(i); inc(i); end; P2 := procedure begin Writeln(i); inc(i); end; P1(); P2(); Writeln(i); There … Read more
I do this as well and I use the following routine to make it happen: procedure TMyForm.PlaceInsideContainer(Container: TWinControl); begin Parent := Container; Align := alClient; BorderIcons := []; BorderStyle := bsNone; ParentBackground := True; Show; end; I have no problems with this. The only difference that I could possibly imagine could be relevant is the … Read more
There’s another similar question, but I’ll repeat my reply here too, to make sure as many people see this info: First up, a disclaimer: although I work for Embarcadero. I can’t speak for my employer. What I’m about to write is based on my own opinion of how a hypothetical 64-bit Delphi should work, but … Read more