jbWishmaster

I have a unique problem that I am trying to solve 1. so I am trying to send information to and from ~2-10 applications at the same time, without knowing the IPs of the respective machines. something like the "OverbyteIcsTWSChat" demo just for max 2-10 people should see the same message at the same time on the same local network. 2. is there a method to get all IP's from all PCs that are connected to the same router/local network. and if not 3. I have access to every PC so I can get the IP of everyone PC if needed but I would like to somehow solve it automatically and list all IP's in the background. I'm trying to implement some kind of log so that everyone in the group knows what the other is doing. I have no experience with this component (ICS)

thanks to all who replied. UDP listening looks promising to get the IP's, I only have one computer wired the rest is on the same WIFI I thought I Send/Receive each IP once every 30 seconds with a command like the IP + Username (because different people use the same laptop) or if the App Closes it sends the command too remove the the IP from the list, and on the receiving end it checks if the IP and username exist. so that small program that I wrote is a DB for location/inventory tracking one of the tasks it should fulfill is, if user 1 changes something then the same change should be made to PC/User 2-10, so that everyone sees the same thing. and as I already said the server is very slow so Reloading the DB is out of the question it takes a lot of time ~2 min. for a file ~ 1 MB I also try to work with open source. I'm under a lot of time pressure to finish this App. so if anyone else has other suggestions or Demos to speed it up the process...

I just tried to install the new version and get stuck at a certain point. as soon as I try to compile the package it asks me to create a Connection profile for OSX64. I have nothing to do with apple/OSX [EurekaLog] IcsCommonD104Run.dproj(1): Unsupported project (IcsCommonD104Run.dproj; OSX64): platform "OSX64" is not supported Building IcsCommonD104Run.dproj (Debug, OSX64) I was able to install the previous version without any problems. and without setting up a Connection profile for OSX64.

I have an old code that I'm trying to translate, make it work with ICS but I am somewhat lost. I am new to ICS and I try to understand it so I am grateful for any help. it is a Client + Server app for a Remote Desktop. the original code is using the components TIdTCPClient and TIdTCPServer, See attachment! 2. Delphi_Remote_Desktop_Source_Code_Keystrokes.zip

@FPiette as I explained already " the Port and IP are not blocked" otherwise the first demo I posted would not work either. there must be something else that I have overlooked.

so i did some testing using the OverbyteIcsTWSChat demo and it worked as expected, at least it connected between my x2 main computers and virtualbox. however when i tried it at work it didn't connected at all. and I used the same IP and port number as the demo posted above which works without problems. as far as I understand it the Port and IP are not blocked, At work I have several MS Surface tablets which I can use for testing. but so far I have no luck. so if someone has an idea on how to fix it, perhaps I miss something!?

try the following code, it works for me. procedure Draw_PannelFrame_Flat_Rounded(Dst : TBitmap32; R: TRect; Sides : TSides; Color : TColor32; PenStyle: TPenStyle; StrokeWidth : Single = 1; Radius : Integer = 6) ; var Points : TArrayOfFloatPoint; Dashes : TArrayOfFloat; FRect : TFloatRect; begin FRect:= FloatRect(R); case PenStyle of psSolid: begin Points:= Build_RoundRect(Radius, FRect, StrokeWidth * 1); PolyPolylineFS(Dst, PolyPolygon(Points), Color, True, StrokeWidth * 1, jsMiter, esSquare); end; psDash: begin // Dashes := MakeArrayOfFloat([10, 3, 3, 3, 3, 3]); Dashes := MakeArrayOfFloat([6, 2, 6, 2]); Points:= Build_RoundRect(Radius, FRect, StrokeWidth * 1); DashLineFS(Dst, Points, Dashes, Color, True, StrokeWidth * 1); end; psDot: begin Dashes := MakeArrayOfFloat([2, 2, 2, 2]); Points:= Build_RoundRect(Radius, FRect, StrokeWidth * 1); DashLineFS(Dst, Points, Dashes, Color, True, StrokeWidth * 1); end; psDashDot: begin Dashes := MakeArrayOfFloat([6, 2, 2, 2]); Points:= Build_RoundRect(Radius, FRect, StrokeWidth * 1); DashLineFS(Dst, Points, Dashes, Color, True, StrokeWidth * 1); end; psDashDotDot: begin Dashes := MakeArrayOfFloat([10, 2, 2, 2, 2, 2]); Points:= Build_RoundRect(Radius, FRect, StrokeWidth * 1); DashLineFS(Dst, Points, Dashes, Color, True, StrokeWidth * 1); end; psClear: ; psInsideFrame: begin Points:= Build_RoundRect(Radius, FRect, StrokeWidth * 1); PolyPolylineFS(Dst, PolyPolygon(Points), Color, True, StrokeWidth * 1); end; psUserStyle: ; psAlternate: ; end; end;

function Build_RoundRect(Radius : TFloat; Rec: TFloatRect; BorderWidth : TFloat ): TArrayOfFloatPoint; var FRec : TFloatRect; begin FRec.Left:= Rec.Left + 0.5 * BorderWidth; FRec.Top:= Rec.Top + 0.5 * BorderWidth; FRec.Right:= Rec.Right - 0.5 * BorderWidth; FRec.Bottom:= Rec.Bottom - 0.5 * BorderWidth; Result:= RoundRect(FRec, Radius); end; procedure Draw_GradientLinear(Dst : TBitmap32; StartPoint, EndPoint: TFloatPoint; Outline : TArrayOfFloatPoint; Colors : TGradColors); var FFilter : TLinearGradientPolygonFiller; FPolys : TArrayOfArrayOfFloatPoint; begin FFilter := TLinearGradientPolygonFiller.Create(); try Setlength(FPolys, 0); FPolys:= PolyPolygon(Outline); FFilter.StartPoint:= StartPoint; FFilter.EndPoint:= EndPoint; FFilter.WrapMode:= wmClamp;// TWrapMode(1); FFilter.Gradient.ClearColorStops; FFilter.Gradient.StartColor:= Color32(Colors[1]); FFilter.Gradient.EndColor:= Color32(Colors[2]); PolyPolygonFS(Dst, FPolys, FFilter, pfWinding); finally FFilter.Free; Setlength(FPolys, 0); end; end; //---------------------------------------------------------- TGradColors = Array of TColor; TGradPosition = Array [1..2] of TFloat; TGradientStyle = (gsLinearV, gsLinearH, .......) procedure TjbGradient.PaintTo(Dst: TBitmap32; R: TRect); var Buffer : TBitmap32; Colors : TGradColors; Position : TGradPosition; Center : TFloatPoint; Radius : TFloat; Angle : TFloat; CenterPoint : TFloatPoint; FOutline : TArrayOfFloatPoint; StartPoint, EndPoint: TFloatPoint; FRect : TFloatRect; begin if IsRectEmpty(R) then exit; FRect:= FloatRect(R); Buffer := TBitmap32.Create; Buffer.SetSize(R.Width, R.Height); Buffer.ResetAlpha; Buffer.MasterAlpha := FAlpha; Buffer.DrawMode := dmBlend; Buffer.Clear(0); FOutline:= Build_RoundRect(RoundRadius, FRect, 1); if Length(FOutline) = 0 then exit; case FGradStyle of gsLinearV: begin SetLength(Colors, 3); Colors[1]:= ColorFrom; Colors[2]:= ColorTo; StartPoint.X:= 0; StartPoint.Y:= FRect.Top; EndPoint.X:= 0; EndPoint.Y:= FRect.Bottom; Draw_GradientLinear(Buffer, StartPoint, EndPoint, FOutline, Colors); Buffer.DrawTo(Dst, 0, 0); end; gsLinearH: begin SetLength(Colors, 3); Colors[1]:= ColorFrom; Colors[2]:= ColorTo; StartPoint.X:= FRect.Left; StartPoint.Y:= 0; EndPoint.X:= FRect.Right; EndPoint.Y:= 0; Draw_GradientLinear(Buffer, StartPoint, EndPoint, FOutline, Colors); Buffer.DrawTo(Dst, 0, 0); end; end ... it's just a small snippet I hope it helps.

Thank you for your answers, I will try it on the weekend when I have more time.

In Delphi v10.3.1 I tried to compile ICS v8.60 and in File OverbyteIcsFileCopy function TIcsFileCopy.BuildDirList2 Line 1459 and 1483 I get an Error [dcc32 Error] OverbyteIcsFileCopy.pas(1459): E2242 'SysUtils' is not the name of a unit