msd

I'm using Indy with the latest Delphi version, and I have DevArt SecureBridge as another VCL for the network app... It is not a problem if you have any advice from another VCL, but I try to pack all of my work in those two component sets. Thanks for the help and assistance... P.S. I'm using HikVision camera as HTTP client/server device.

Hello, I have one small question for Delphi network experts. I need a source for Auth Digest for HikVision devices, and I will post a sample below. GET /ISAPI/Event/notification/alertStream HTTP/1.1 Authorization: Digest username="admin", realm="IP Camera(C2183)", nonce="4e5468694e7a42694e7a4d364f4449354d7a6b354d54513d", uri="/ISAPI/Event/notification/alertStream", cnonce="3d183a245b8729121ae4ca3d41b90f18", nc=00000001, qop="auth", response="f2e0728991bb031f83df557a8" Host: 10.6.165.192 Thanks for any help in advance...

Hello, This software doesn't work with .h files only c and there are no setup option for .h files. Thanks anyway for any advice :-)

Hi there, Any known converter from h to pas doesn't work for my very huge h file from the HikVision SDK. Does anyone know how to convert this file or have experience converting HikVision SDK h files to Pas? I appreciate any information you may have in advance...

With UniqueString(CmdLine); + removing PChar, everything is working fine, but without a service call...

// FileName - full path to executable // Params - command line parameters or use empty string // Folder - working folder for called program - if empty path will be extracted from FileName // WaitUntilTerminated - if true function will wait for process to finish execution // WaitUntilIdle - if true function will call WaitForInputIdle function and wait until the specified process has finished processing its initial input and until there is no user input pending // RunMinimized - if true process will be run minimized // ErrorCode - if function fails this will contain encountered Windows Error Code function ExecuteProcess(const FileName, Params: string; Folder: string; WaitUntilTerminated, WaitUntilIdle, RunMinimized: boolean; var ErrorCode: integer): boolean; var CmdLine: string; WorkingDirP: PChar; StartupInfo: TStartupInfo; ProcessInfo: TProcessInformation; begin Result := true; CmdLine := '"' + FileName + '" ' + Params; if Folder = '' then Folder := ExcludeTrailingPathDelimiter(ExtractFilePath(FileName)); ZeroMemory(@StartupInfo, SizeOf(StartupInfo)); StartupInfo.cb := SizeOf(StartupInfo); if RunMinimized then begin StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := SW_SHOWMINIMIZED; end; if Folder <> '' then WorkingDirP := PChar(Folder) else WorkingDirP := nil; if not CreateProcess(nil, PChar(CmdLine), nil, nil, false, 0, nil, WorkingDirP, StartupInfo, ProcessInfo) then begin Result := false; ErrorCode := GetLastError; exit; end; with ProcessInfo do begin CloseHandle(hThread); if WaitUntilIdle then WaitForInputIdle(hProcess, INFINITE); if WaitUntilTerminated then repeat Application.ProcessMessages; until MsgWaitForMultipleObjects(1, hProcess, false, INFINITE, QS_ALLINPUT) <> WAIT_OBJECT_0 + 1; CloseHandle(hProcess); end; end; FileName := Server.libPath + 'gbak.exe'; WorkingFolder := Server.libPath; Parameters := PChar(' -b -par 9 -se ' + PChar(Server.dbHost + ':gds_db') + ' -user SYSDBA -pass masterkey ' + PChar(db.fdbPath + db.fdbFile) + ' stdout > ' + PChar(db.fbkFile)); OK := ExecuteProcess(FileName, Parameters, WorkingFolder, true, true, true, Error);

Hello, I have client tools on the server and client side, and the backup command is working fine when I call it from Windows cmd. When I call the over function from the Delphi app, I just get cmd blink, and there are no backup files or any kind of errors. Command is working fine from cmd but fails from Delphi.

This code is OK; I made some modifications, but I have one small problem. When I call a command from Windows cmd everything is working fine, but over this function there are no executions; just blink the app, and nothing happens. What can be wrong? P.S. I chanced working folder to Firebird execution and run as administrator but nothing over the app; over Windows cmd works fine with the same command.

I give a sample with FireDAC; it is not mandatory to be with FireDAC. I have UniDAC, FibPlus, and UIB, all full-source x32/x64. If there is some experience about this subject, it will be nice 🙂

Hello, This is nice advice, but I need to solve it over my Delphi app, so I need to make some class that will make backups from the remote server to the local machine, zip it, and copy it to the FTP backup location.

Hello. I found a few Firebird/Interbase managers have the option to backup databases from a remote server (for example, a Linux server) locally in some directory. When I set all properties to FireDAC Firebid Backup Component, everything is working fine. If I choose a remote instance, I don't have any errors, but there is no locally backup file. Do I miss something? Thanks for the assistance in advance...

Hello, I have custom managed type for example: TvatIndividual = record DocumentNumber: string; TurnoverDate: TDate; PaymentDate: TDate; DocumentType: string; Year: integer; TurnoverDescription: string; TurnoverAmount: Currency; end; I need to iterate over this record type and access its fields. For example, if I have 7 items, how can I retrieve the field names and their types using a loop in Delphi? Thanks in advance!

It is much clear now how Delphi works with complex XML files... Thanks to all of you :-)

I know for XML mapper, but, as I told you before, there is no full XML every time; one time XML has all UBL 2.1 nodes, one time only nessersty nodes. Does XML Mapper recognize this situation?

Hello I have one XML situation, but I'm new in this world (parsing complex XML in Delphi). The XML file is a UBL 2.1 model invoice, and it has more nodes with child nodes, and child nodes have new child nodes, and so on. Do I need to make an infinite loop of reading and inspect every node for chield? My intention is to not lock structure; there are nodes that are not mandatory, so I just want to parse XML and use that data that is in the converted XML file. I'll attach sample XML to this message. Thanks to all of you in advance for any help... sample_invoice.xml