azrael_11

Remy this is a hell good Guide, it helps a lot. In the 1st your are right i miss that. In the 2nd case i forgot some " '+" so yes it is broken. Thank you.

Hello.. When i execute this command var program_path: string; begin program_path:= c:/myprogram.exe ShellExecute(0, nil, 'cmd.exe', PChar('/C ' + program_path+ ' -fg'), PChar(program_path), SW_HIDE); but when the program_path have a space like a "New folder" var program_path: string; begin program_path:= c:/New Folder/myprogram.exe ShellExecute(0, nil, 'cmd.exe', PChar('/C ' + program_path+ ' -fg'), PChar(program_path), SW_HIDE); Then nothing happens . I try this ShellExecute(0, nil, 'cmd.exe', PChar(AnsiQuotedStr('/C ' + program_path+ ' -fg', Char(34))), PChar(program_path), SW_HIDE); Nothing.

Maybe something like this in C++ code String signatureString = "GET&" + URLEncoder.encode(url, "UTF-8") + "&" + URLEncoder.encode(parametersList.toString(), "UTF-8"); Thank you

This is the official String signature generator that taken from C++ code form Yahoo. But i cant translated to delphi code. String signature = null; try { SecretKeySpec signingKey = new SecretKeySpec((consumerSecret + "&").getBytes(), "HmacSHA1"); Mac mac = Mac.getInstance("HmacSHA1"); mac.init(signingKey); byte[] rawHMAC = mac.doFinal(signatureString.getBytes()); Encoder encoder = Base64.getEncoder(); signature = encoder.encodeToString(rawHMAC); } catch (Exception e) { System.err.println("Unable to append signature"); System.exit(0); } Thank you

Finally i use the simple method of indy IdHTTP.get method to get result. But i don't know how to GENERATE SIGNATURE Any ideas... Thank you.

Hell and happy new year. 2019 may be great year for delphi developers. First question of the year for me. Is out there and particle system for FireMonkey either 2D or 3D, free? I really make use of that for my program. Thank you.

Thank you ill check that.

Hi I manage to setup a virtual box MacOsX high sierra machine I setup the network so the ip is always the 192.168.2.100 I run the paserver. The ip i get when i execute the i command is the above 192.168.2.100 The port i get when i execute the p command is the 64211 I put this settings in the main machine and it fails ... Someone solve this.... Thank you.

Finally i get it. The only thing is to reboot my pc and add bridged again and it works just fine. Thank you all.

I try almost all and Nat and briged nothing Do you know how can i know if my virtual machine is at my home network? Thank you.

I think you are right about this so i make a process to call that... Thank you.

That work just fine. Thank you.

I try this ShellExecute(0, nil, 'cmd.exe', PChar(AnsiQuotedStr('/C ' + program_path, Char(34))+ ' -fg'), PChar(program_path), SW_HIDE); Nothing, not working.

Hi Try to find any good tutorial or sample code how to make a global hook for keyboard and mouse. Thank you.

Thank you. I'll try this.

I forget a lot so let me begin Not a logger i try to make something like this. When a user hit a key to another program i want to know what key is and make my procedure. Example : When run a game emulator like MAME when the user hit "t" in the keyboard when plays in mame i want to exit mame not execute the mame command that have in "t" key. So i can make a map of keys like arrow left to use it the joystick left. i hope i give you understand about that. The platforms i want to go is Win64, win32, MacOsx ... for now. I use the Delphi 10.2.3 Tokyo . FMX Platform. Thank you.

Hello To our new home and hope last longer I have a question... I am working on an FMX Program and try to create a TImageList Dynamic and add Images into the "List of Images" so i can call the image from the Tstringgrid cell with the number ... Do you know how can i do this ? Thank you.

After a few search i found a helper for the Imagelist and it is work just fine. Here the code below type TImageListHelper = class Helper for TImageList function Add(const ABitmap: TBitmap): integer; end; implementation function TImageListHelper.Add(const ABitmap: TBitmap): integer; const Scale = 1; var vSource: TCustomSourceItem; vBitmapItem: TCustomBitmapItem; vDest: TCustomDestinationItem; vLayer: TLayer; begin Result := -1; if (ABitmap.Width = 0) or (ABitmap.Height = 0) then exit; // add source bitmap vSource := Source.Add; vSource.MultiResBitmap.TransparentColor := TColorRec.Fuchsia; vSource.MultiResBitmap.SizeKind := TSizeKind.Source; vSource.MultiResBitmap.Width := Round(ABitmap.Width / Scale); vSource.MultiResBitmap.Height := Round(ABitmap.Height / Scale); vBitmapItem := vSource.MultiResBitmap.ItemByScale(Scale, True, True); if vBitmapItem = nil then begin vBitmapItem := vSource.MultiResBitmap.Add; vBitmapItem.Scale := Scale; end; vBitmapItem.Bitmap.Assign(ABitmap); vDest := Destination.Add; vLayer := vDest.Layers.Add; vLayer.SourceRect.Rect := TRectF.Create(TPoint.Zero, vSource.MultiResBitmap.Width, vSource.MultiResBitmap.Height); vLayer.Name := vSource.Name; Result := vDest.Index; end; Thank you for help

Thank you i'll try this..