limelect

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

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

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

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

All compile well my last installation problem Dspack_2010 and DXE2

@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

@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;

use https://torry.net/quicksearchd.php?String=WinPopup&amp;page=1 mdMailSlot it did for me the job

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

@FreeDelphiPascal I know the component very well and use it can you put here the fixed source?

Although it is not Delphi it is mad with Delphi. In one of my Delphi projects, I used Python and it did not have an execution so I made this application for me BUT it might help OTHERS Python 2 execute https://limelect.com/downloads/python-2-execute/ Good day

The program does not matter but basically, it shows database data by using FDConnection1.GetTableNames('', '', '', str, [osMy, osOther], [tkTable], False); and FDConnection1.GetFieldNames('', '', str, '', Str2); Now to the story I got back to this program (that worked) compiled and it stopped working.. I did nothing just compiled. worked on it nothing. went to my backup and copied the main.pas and main.dfm (those are the only files) did not work. . The execution on the backup workers as expected. Mad a new project by copping from backup the dpr pas dfm and compile it does not work. Now to the NOBEL prize. Copy the project from the backup to a directory and compile and it works Check by comparing pas and dfm. same. Check as much as possible DCU with hex program same. size wise both exe are the same. The point is that it is so crazy that I had to share it with you guys.

I am baffled. Now the bad is good. The original directory works.!!!!! If there is GOD he fixes things. And suddenly things work. what a field I chose. Thanks, everybody.

It seems that a window directory is the problem and Delphi does not help since this instruction FDConnection1.GetTableNames('', '', '', str, [osMy, osOther], [tkTable], false); return 0; The "bad" directory used to be the original directory

OK, guys good news and bad news. It is a window problem and Delphi Taking the bad program to a good location it works.

yes. It is a portable computer that goes with me everywhere. So it restarts for almost every few days. it is a Lenovo server very powerful. I started this program out of a need for a project. So it worked in this directory.