Jump to content


  • Content Count

  • Joined

  • Last visited

  • Days Won


Christian last won the day on May 29 2019

Christian had the most liked content!

About Christian

  • Rank

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Christian


    Hi, i'm currently working on a media project which is caused by its nature partially browser based. 95% of it are made in lazarus and 5% (probably less) is running in a browser. Since i am not quite familiar with javascript it takes longer to achieve everything using js, so my second attempt is to use sms instead. The application itself is a analyzer for ATSC 3 and it streams the tv signal as DASH transmission via an embedded web server. It also offers tuner related informations and statistics in json format. What i try to achieve is to load the json response from the server and to assem
  2. omg, sorry i suppose i found the problem. ini := TIniFile.Create; ini.loadFromUrl('res/apps.ini', procedure() begin writeln(ini.ReadString('0','Url','')) end); ini.free Ini.free is executed before the value has been loaded. Sorry for the circumstances.
  3. If i create a copy of the Systems.IniFile Unit and go through it, then i see that it crashes here: procedure TCustomInifile.Clear; begin if FData.Count > 0 then FData.Clear(); end; Christian
  4. Thanks for the quick response. I do get "Uncaught TypeError: Cannot read property 'length' of undefined [line #1198]" when i try to read the context to self.FromString(Sender.ResponseText); type TIniFileHelper = class helper for TIniFile procedure LoadFromUrl(aUrl:String;Callback: TProcedureRef = nil); end; procedure TIniFileHelper.LoadFromUrl(AUrl:String; Callback:TProcedureRef); var mRequest: TW3HttpRequest; begin mRequest := TW3HttpRequest.Create; mRequest.OnDataReady := procedure (Sender:TW3HttpRequest) begin showmessage(inttostr(Sender.ResponseText.leng
  5. Hi, i have question concerning tinifile and how to load the content. My code looks like this: type TIniFileHelper = class helper for TIniFile procedure LoadFromUrl(const AUrl:String); end; procedure TIniFileHelper.LoadFromUrl(const AUrl:String); var mRequest: TW3HttpRequest; begin mRequest := TW3HttpRequest.Create; mRequest.OnDataReady:=procedure (Sender:TW3HttpRequest) begin self.FromString(Sender.ResponseText); TW3Dispatch.SetTimeout(Sender.free,100); end; mRequest.Get(AUrl); end; and i do something like this: ini := tinifile.create; ini.L
  6. Hi, is there a way to set username and password to a W3IFrameHTMLElement, or how should i solve the following issue: I want to open a website running in a W3IFrameHTMLElement and this page requests credentials which i want to enter automatically. Christian
  7. I mean this: procedure TSeriesData.Refresh; begin asm (@Self.FHandle).values=((@FValues)); end; asm (@Self.FHandle).labels=((@FLabels)); end; asm (@Self.FHandle).colors=((@FColors)); end; //asm (@Self.FHandle).x=((@FX)); end; end; So Serie.Data.X.Add does not update the chart component, because Refresh ignores the X values. If you know it, it is not a big deal to work around this issue. I just wonder why this has been disabled. Christian
  8. Hi, today i thought i try to get in touch with the Tw3Chart. To do so i made a small example: const // Stefan-Boltzmann constant, and has the value 5.67 x 10-8(Wm-2K -4) cBoltzman = 0.0000000567; // 30% of the short wave radiation that hits the earth is bounced back into space. cAlbedo = 0.3; // A solar constant is the amount of radiation given off by the sun. // Over a long period of time this may change, but for this model we can // assume that it will stay at 1370. S is expressed in W / m2 or Watt per square meter cSolarConstant = 1370; procedure TForm1.Initia
  9. The second exception is more annoying. If you create a new Project: Start a new Project -> Canvas Project -> Main->File->Save as.. then rename your Unit1.pas into e.h. UMain.pas and select in the combo box under Project Manager Unit1.pas. You will get an exception like this:
  10. Hi, i did not found the problems posted here, so i hope i'm the first one who does list them. If you change the Theme under Tools->IDE Settings->Appearance more than one time it crashes:
  11. The gameplay is simple. Just click on a part of the map and your player moves to this position. By pressing the space bar you place a bomb (max. 10 bombs can be placed at a time). If you are in Range of the bomb you activate the timer by right mouse click. Aim is to bomb the builders and the building. I skip 2 frames in order to have at least 22fps. The performance can be increased by minimizing the for loops in the render procedure and the access to the arrays. It was just a proof of concept how to paint and i'm happy to figured it out. Christian
  12. Hi, to be honest i already answered myself yesterday while studying the RTL code. It took a while to fiddle out how to deal with TW3ImageData. The result is attached to this post. Feel free to do whatever you want with this code. The render routine is extremely slow, but this is also the case in the original. You could drastically speed it up by replacing the tons of for loops. The gameplay is easy: Move your little buddy with the mouse and place bombs at the buildings while the constructors are assembling them. They will run away if they do not work. The right mouse button will act
  13. Christian


    Hi, i'm currently try to get familiar with Smart and to do so i started creating a small game in order to get familiar with the language. The game itself is based on an old tech demo i made and uses voxel graphics and porting it from Delphi 7 worked surprisingly well. I only got stuck in rendering the output. My Backbuffer looks like this: TBackBuffer = array[0..WorldHeight - 1, 0..WorldWidth - 1] of TColor; and i would like to paint the scene with the proper aspect ratio to the canvas as fast as possible. Under Windows i would use StretchDIBits for this. If everything works fine,
  • Create New...