-
Content Count
1198 -
Joined
-
Last visited
-
Days Won
16
FPiette last won the day on September 2 2024
FPiette had the most liked content!
Community Reputation
392 ExcellentRecent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
I don't know. I have written only one application which make use TEdgeBrowser. It's part of an automation process which runs every single day without any glitch. In that application, TEdgeBrowser is simply dropped on the VCL form. I don't even use OnCreateWebViewCompleted event.
-
You must convert this code to hexadecimal => 80070578 Then search Google for this code and edge browser. The code 80070578 means: "invalid window handle".
-
Run as admin on unauthorized Windows username
FPiette replied to Mustafa E. Korkmaz's topic in Windows API
I the next step your app *has* the administrator privileges. Just run the external process as any user using only CreateProcess(). -
Run as admin on unauthorized Windows username
FPiette replied to Mustafa E. Korkmaz's topic in Windows API
I have this code which could help you : {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Author: François PIETTE @ OverByte Creation: July 22, 2021 Description: Classes to act (File access or other) using another user account. License: This program is published under MOZILLA PUBLIC LICENSE V2.0; you may not use this file except in compliance with the License. You may obtain a copy of the License at https://www.mozilla.org/en-US/MPL/2.0/ Version: 1.0 History: Jul 22, 2021 1.00 F. Piette Initial release * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} unit ImpersonateUser; interface uses Winapi.Windows, System.Classes, System.SysUtils; const LOGON32_LOGON_NEW_CREDENTIALS = 9; // Missing in Delphi 10.4.2 type TImpersonateUser = class(TComponent) protected FUserToken : THandle; FErrorCode : DWORD; public destructor Destroy; override; function Logon(const UserName : String; const Domain : String; const Password : String) : Boolean; procedure Logoff(); property ErrorCode : DWORD read FErrorCode; end; implementation { TImpersonateUser } destructor TImpersonateUser.Destroy; begin if FUserToken <> 0 then begin CloseHandle(FUserToken); FUserToken := 0; end; inherited Destroy; end; procedure TImpersonateUser.Logoff; begin if FUserToken <> 0 then begin RevertToSelf(); // Revert to our user CloseHandle(FUserToken); FUserToken := 0; end; end; function TImpersonateUser.Logon( const UserName : String; const Domain : String; const Password : String): Boolean; var LoggedOn : Boolean; begin Result := FALSE; if FUserToken <> 0 then Logoff(); if UserName = '' then begin // Must at least provide a user name FErrorCode := ERROR_BAD_ARGUMENTS; Exit; end; if Domain <> '' then LoggedOn := LogonUser(PChar(UserName), PChar(Domain), PChar(Password), LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, FUserToken) else LoggedOn := LogonUser(PChar(UserName), PChar(Domain), PChar(Password), LOGON32_LOGON_NEW_CREDENTIALS, LOGON32_PROVIDER_WINNT50, FUserToken); if not LoggedOn then begin FErrorCode := GetLastError(); Exit; end; if not ImpersonateLoggedOnUser(FUserToken) then begin FErrorCode := GetLastError(); Exit; end; FErrorCode := ERROR_SUCCESS; Result := TRUE; end; end. Once your code has called Logon(), it act a the user specified by the credentials. When finished, call Logoff(). -
I never got that warning. Does it occurs each time you run the IDE?
-
Which version ? This could also be a component you've installed.
-
You can use the remote debugger. And as other said, using madExcept is an excellent choice. You'll also have a stack trace. I use madExcept a lot!
-
Is it possible for you to run the application under Delphi debugger? If you do, the debugger will show you the exact location of the exception and a stack trace. Those are the best information to understand where and why the exception occurs.
-
Open a new discussion with a correct the question. And add as many details as possible from your code. Without details, we cannot help much. I also suggest you create a minimal reproducible sample program which demonstrate the bad behavior you see in your actual code.
-
Have a look at the sample OverbyteIcsConHttp.dpr in ICS distribution.
-
Check If File is what he claim to be
FPiette replied to mazluta's topic in RTL and Delphi Object Pascal
The write such a function, your have to open the file and check his content to see if is what the file extension pretend. Each file has a specific internal file format, usually in a header. You have to look at the specification for each file format and write code to do more or less serious checks. There is a website which could help you : https://docs.fileformat.com/ -
I have this code: procedure TScreenDumpForm.ScreenDump( const FileName : String); var Stream : TFileStream; c : TCanvas; r1 : TRect; r2 : TRect; b : TBitmap; j : TJPEGImage; begin c := TCanvas.Create; b := TBitmap.Create; j := TJPEGImage.Create; Stream := TFileStream.Create(FileName, fmCreate); try c.Handle := GetWindowDC(GetDesktopWindow); try r1 := Screen.MonitorFromWindow(Handle).BoundsRect; r2.Top := 0; r2.Left := 0; r2.Width := r1.Width; r2.Height := r1.Height; b.Width := r1.Width; b.Height := r1.Height; b.PixelFormat := pf24bit; b.Canvas.CopyRect(r2, c, r1); j.CompressionQuality := 60; j.Assign(b); j.SaveToStream(Stream); finally ReleaseDC(0, c.Handle); c.Free; b.Free; j.Free; end; finally Stream.Free; end; end;
-
After that happens, is the application start working again without restarting it or one it happens no other connection is accepted. If no other connection is accepted, it could be that the listen socket has been closed unexpectedly. This could happens by a bug elsewhere leading to a CloseSocket or even plain winapi CloseHandle function is called with the socket handle.
-
Access violations in OverbyteIcsHttpRestTst
FPiette replied to omnibrain's topic in ICS - Internet Component Suite
You are not using a debug version of the application because there is missing details in the stack trace. Make sure you rebuild all, including the components.the debugger should show the excat line where the exception occurs. -
Access violations in OverbyteIcsHttpRestTst
FPiette replied to omnibrain's topic in ICS - Internet Component Suite
Please build using debug configuration and run with the debugger. Then when the debugger hit the exception, copy the call stack and the code around the error, and paste it here.