Jump to content

limelect

Members
  • Content Count

    924
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by limelect

  1. limelect

    Is there a way to create a photo capture toobar?

    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
  2. limelect

    D4P_export_demo

    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
  3. limelect

    D4P_export_demo

    It is fixed here https://github.com/Embarcadero/DelphiFMX4Python/issues/94
  4. limelect

    D4P_export_demo

    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
  5. limelect

    D4P_export_demo

    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
  6. limelect

    D4P_export_demo

    I tried a VCL project same problem
  7. limelect

    webcam settings

    I just want to open webcam setting with Delphi window 7 just code plz
  8. limelect

    webcam settings

    Ok I did it for how see the last section of the page https://en.delphipraxis.net/topic/10649-dspack/?tab=comments#comment-84694
  9. limelect

    dspack

    D10.2.3 Does anyone have a link/source to DPACK component that compiles and used perfect on my Delphi All the links I have have problems
  10. limelect

    dspack

    Ok I did it This is why I needed it for that https://en.delphipraxis.net/topic/10628-webcam-settings/ I am using ShowFilterPropertyPage(Form1.Handle, Filter as IBaseFilter, ppDefault); where the filter gets in the base filter the video
  11. limelect

    dspack

    Merci Thanks old BPL mix Why I did not find that component link I wonder
  12. limelect

    dspack

    All compile well my last installation problem Dspack_2010 and DXE2
  13. limelect

    dspack

    @FPiettea Now i have compilation version problems I have to clean up things GDIPAPI was compiled with a different version of DirectDraw.IDirectDrawSurface7 I am trying to find my DirectDraw.dcu that does the problem
  14. limelect

    dspack

    @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
  15. limelect

    2 new programs

    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
  16. limelect

    2 new programs

    new version /python-2-execute/
  17. limelect

    Removing String

    Use RxStrUtils.pas large amount of functions that do exactly that Why invent the weel?
  18. limelect

    11.3 and Android tools

    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?
  19. limelect

    webcam settings

    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;
  20. limelect

    communicate between 2 progs with sendmessage.

    use https://torry.net/quicksearchd.php?String=WinPopup&amp;page=1 mdMailSlot it did for me the job
  21. Use OgFirst from https://github.com/TurboPack/OnGuard-VCL in dpr if TogFirst.IsFirstInstance then begin -------------- end else TogFirst.ActivateFirstInstance;
  22. limelect

    Round UpTo 1 Level up

    First, change the comma to point then use the cell function
  23. limelect

    Library for modifying windows PE files?

    I hope this will bring you closer to your need https://www.swissdelphicenter.ch/en/showcode.php?id=1302
  24. limelect

    I need a foldable/collapsible panel

    D10.2.3 It Is Ok thanks
  25. limelect

    I need a foldable/collapsible panel

    Thanks, I will wait for the final fix Thanks for the source
×