

limelect
Members-
Content Count
924 -
Joined
-
Last visited
-
Days Won
1
Everything posted by limelect
-
Just an idea. If this is a Chrome page use https://www.printfriendly.com/ to convert all HTML pages to PDF. I have an addon for Chrome which I use all the time
-
I wonder if someone can help. I made this Python to EXE with Delphi https://limelect.com/downloads/python-2-execute/ It works BUT when I use it on Delphi Py the first line does not find it. from delphifmx import * from parent_window import Parent_Form def main(): Running this script on GUIPY with no problem The line I am using is pyinstaller.exe --windowed D4P_export_demo.py --onefile --paths=C:\Users\LimElect\anaconda3\Lib\site-packages\delphifmx --name D4P_export_demo I have tried all combinations and could not find something. -paths=C:\Users\LimElect\anaconda3\Lib\site-packages\delphifmx is the path to the library. But GUIPY finds it with no problem P.S. I have asked this question on the Python platform with no answer. StackOverflow rejected my question I do not understand why so you are left. One more thing pip list shows the package
-
It is fixed here https://github.com/Embarcadero/DelphiFMX4Python/issues/94
-
OK guys I got this suggestion in HEBREW "https://www.facebook.com/groups/306586986847428/" pip install auto-py-to-exe==2.42.0 which I did and got the same problem So I guess I am left with Embarcadero helllllllllp
-
Sorry guys to bother .I came to a conclusion that it is Embarcadero's problem or mine. as it is in __init__.py if 'DelphiVCL' in fname: return os.path.join(sdir, os.path.basename(fname)) raise ValueError("DelphiVCL module not found. Try to reinstall the delphivcl package.") why ? i do not know. so I hop one of thos Delphi guys will see this All the package portions are there and in GUIPY it finds it but not as an execution. I single step to see this. Thanks
-
I tried a VCL project same problem
-
I just want to open webcam setting with Delphi window 7 just code plz
-
Ok I did it for how see the last section of the page https://en.delphipraxis.net/topic/10649-dspack/?tab=comments#comment-84694
-
@FPiette i Missed it but it also gives me an error Hr := MPC.GetOverlaySurfaceColorControls(Tmp); [dcc32 Error] DSPack.pas(3967): E2033 Types of actual and formal var parameters must be identical tmp is supposed to be TDDColorControl which is Tmp : TDDColorControl; I fixed 1 now I have another hr := FMediaEventEx.GetEvent(Event, Param1, Param2, 0); Now I have a different problem of compile ver
-
The programs are made with Delphi. But are for Python https://limelect.com/downloads/compile-ui-to-py-files/ https://limelect.com/downloads/python-2-execute/ Have fun
-
new version /python-2-execute/
-
Use RxStrUtils.pas large amount of functions that do exactly that Why invent the weel?
-
I downloaded the community edition for evaluation 11.3 On my D10.2.3 I have Avd Manger and SDK manager No such programs on the 11.3 Any advice? Can I compile it for Android? Ndk and SDK exist. Can I copy the above programs to (user) 22 folder?
-
I found this project https://github.com/jpalbert/webcam-settings-dialog-windows I changed the bat to chcp 65001 > nul ffmpeg -f dshow -show_video_device_dialog true -i video="Integrated Camera" and it works however, doing the same with Delphi does not work as I have GetDosOutput that does not do the job Any idea how to do this with Delphi? GetDosOutput works when I read info from a program I tried to delete the repeat section Any other Dos reading? procedure TForm1.GetDosOutput(CommandLine: string); const ReadBuffer = 32768; // 32kb buffer var SA: TSecurityAttributes; SI: TStartupInfo; PI: TProcessInformation; StdOutPipeRead, StdOutPipeWrite: THandle; WasOK: Boolean; Buffer: array[0..ReadBuffer] of AnsiChar; BytesRead: Cardinal; Handle: Boolean; Apprunning: DWord; // T: Ttime; TotalBytesRead, ExitCode: DWORD; BytesLeftThisMessage, TotalBytesAvail: integer; par_s: string; begin // Result := ''; Application.ProcessMessages; with SA do begin nLength := SizeOf(SA); bInheritHandle := True; lpSecurityDescriptor := nil; end; CreatePipe(StdOutPipeRead, StdOutPipeWrite, @SA, 0); try with SI do begin FillChar(SI, SizeOf(SI), 0); cb := SizeOf(SI); dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES; wShowWindow := SW_HIDE; hStdInput := GetStdHandle(STD_INPUT_HANDLE); // StdOutPipeRead; don't redirect stdin hStdOutput := StdOutPipeWrite; hStdError := StdOutPipeWrite; end; try UniqueString(CommandLine); Handle := CreateProcess(nil, PChar(CommandLine), @SA, @SA, true, (CREATE_NEW_CONSOLE) or (REALTIME_PRIORITY_CLASS), // NORMAL_PRIORITY_CLASS, nil, // PChar(WorkDir), nil, sI, PI); except end; CloseHandle(StdOutPipeWrite); begin repeat Apprunning := WaitForSingleObject(PI.hProcess, 100); Application.ProcessMessages; until (Apprunning <> WAIT_TIMEOUT) { or (stop2)}; repeat if PeekNamedPipe(StdOutPipeRead, @Buffer[0], ReadBuffer, @BytesRead, @TotalBytesAvail, @BytesLeftThisMessage) then if BytesRead > 0 then begin // ReadFile(ReadPipe,Buffer[0], ReadBuffer,BytesRead,nil) ; WasOK := ReadFile(StdOutPipeRead, Buffer[0], BytesRead, BytesRead, nil); if BytesRead > 0 then begin Buffer[BytesRead] := #0; OemToAnsi(Buffer, Buffer); par_s := StrPas(Buffer); if par_s <> '' then Memo1.Lines.Add(par_s); end; end; until (BytesRead > 0) {or (stop2)}; // < ReadBuffer) ; end; finally // stop2 := false; CloseHandle(PI.hThread); CloseHandle(PI.hProcess); CloseHandle(StdOutPipeRead); // GoToFirstLine; end; end;
-
communicate between 2 progs with sendmessage.
limelect replied to JeanCremers's topic in Windows API
use https://torry.net/quicksearchd.php?String=WinPopup&page=1 mdMailSlot it did for me the job -
Prevent Multiple Instance from running at the same time
limelect replied to new_x's topic in Windows API
Use OgFirst from https://github.com/TurboPack/OnGuard-VCL in dpr if TogFirst.IsFirstInstance then begin -------------- end else TogFirst.ActivateFirstInstance; -
First, change the comma to point then use the cell function
-
I hope this will bring you closer to your need https://www.swissdelphicenter.ch/en/showcode.php?id=1302
-
D10.2.3 It Is Ok thanks
-
Thanks, I will wait for the final fix Thanks for the source