Jump to content

Alberto Fornés

Members
  • Content Count

    57
  • Joined

  • Last visited

  • Days Won

    2

Posts posted by Alberto Fornés


  1. 16 minutes ago, Mark- said:

    OK.

     

    > but I don't receive any messages like I see in MQTT Explorer.

     

    Is it the lack of a confirmation the subscribe was successful? or

    Is the value in the server changing and you are not being notified?

    I don't receive any message in the event: MQTTClientMsg(Sender: TObject; aTopic: UTF8String; aMessage: AnsiString; aQos : TMQTTQOSType; aRetained : boolean)


  2. This is the Mosquito log when connect to server:

     

    Quote

    1747327152: New connection from 192.168.1.130:52181 on port 1883.
    1747327152: New client connected from 192.168.1.130:52181 as CID52177 (p1, c0, k10, u'keeptrack_cajas').
    1747327152: Will message specified (19 bytes) (r0, q2).
    1747327152:     will/CID52177
    1747327152: Sending CONNACK to CID52177 (0, 0)
    1747327152: Received SUBSCRIBE from CID52177
    1747327152:     lectura/cajas/+ (QoS 1)
    1747327152: CID52177 1 lectura/cajas/+
    1747327152: Sending SUBACK to CID52177

     


  3. Hi, I have a Mosquitto server that publishes messages and I can subscribe to it using programs like MQTT Explorer. By testing with TIcsMQTTClient, I can connect to the host and port (it also uses a username and password) and it validates. I subscribe to a topic, but I don't receive any messages like I see in MQTT Explorer. Is there anything I should check that could be causing me to not receive the messages?


  4. 24 minutes ago, omnibrain said:

    I still enjoying trying out the components and have some first ideas but not enough time.

    But I have a few questions: 

    • The Demos seem to be a bit messed up pathwise. Difficult to describe, I think it's best if you do a clean install and open a Demo in Delphi yourself and then start it from within Delphi.
    • You have SaveSVG and ExportDoc procedures. Both save to files. Is there a reason there is no option to save to a stream to continue processing the generated label directly in a program? Or am I overlooking something?
    • I managed to hide almost all control elements of the editor component. But not the scrollbars. Am I overlooking something?
    • I see that you can use a CSV file or JSON as Data Source. But is it also possible to use a TDataSet?

     

     Hello Omnibrain, about your questions:

     

    1.- The Demos seem to be a bit messed up pathwise. Difficult to describe, I think it's best if you do a clean install and open a Demo in Delphi yourself and then start it from within Delphi.

     

    I will check it, path installation is different from development and maybe something is broken.

     

    2.- You have SaveSVG and ExportDoc procedures. Both save to files. Is there a reason there is no option to save to a stream to continue processing the generated label directly in a program? Or am I overlooking something?

     

    Yes, there are to methods to save and load from a stream: 

        procedure TMPLabel.SaveToStream(aStream: TStream);
        procedure TMPLabel.LoadFromStream(aStream: TStream);

    3.- I managed to hide almost all control elements of the editor component. But not the scrollbars. Am I overlooking something?

     

    Scrollbars are enabled or disabled depending of label dimensions and zoom. No option to hide it. Maybe I add in next update, something like fitToAll and disabled zoom option.

     

    4.- I see that you can use a CSV file or JSON as Data Source. But is it also possible to use a TDataSet?

    Yes you can assign any descendent from TDataSet, See TMPLabel.Data.DataSets from object inspector.

     

     

    I'm working in a new release fixing some bugs and adding new features. Also in a version with FMX library.


  5. Version 3.0 of the PLABEL VCL components has been released, this is a version written from scratch and using the Skia library to render graphics. The previous version was used to add a label editor to our applications: text, paragraph, images, barcodes, etc. In this new version, the possibility of editing flowcharts and technical drawings (layers, dimension measurement, operations with lines, scale, etc.) has been added. Drawings can be printed or saved as pdf, png, jpeg, gif or svg. Saving as SVG can be interesting for web projects, or if you need to show technical drawings in documents such as quotes and orders. At https://www.mesurasoft.com/Plabel/Gallery , you can see several examples of created documents, some of them as SVG.

     

    • The appearance and functionality of the property inspector has been changed, now it is better organized and more compact.
    • inspect_polyline.png.f195e0087b3126fded8ebee1643d5aef.png
    • In labelling mode you can rotate left or right the label.
    • rotate.gif.5ee9d1d0f6116e392b53e66958b8b878.gif
    • Link label elements to data: TDataset descendant, csv or json.
    • Table element to print records from detail tables.
    • Inplace editing text, align positions vertical and horizontal. Set background rounded rectangle.
    • text.png.1ad40f5316467ff4850fdde34c49315e.png
    • Symbols can be created by code and saved in categories and libraries, to then be inserted in a certain position, scale and angle of rotation. Symbols can have one or more connection points, to link to other elements in the drawing. You can organize the elements of the drawing in layers, which you can hide or print as needed.
    • sel_symbol.thumb.png.8c7e68310404c324ee589fea5dbc155d.png
    • You can add dimensions and measurements to the drawing, their appearance can be modified using dimension styles.
    • dimension_style.thumb.png.1fe263735a60b9c63c61d0c20bc46311.png
    • In technical drawings, apart from the units, you can define a scale greater than one, which will be taken into account when placing the dimensions and measurements
    • drawing_03.png.4fb1b0550f8e0e948e532b1654d10368.png
    • New elements: nutriscore display, level, rank, show box sizes
    • new_elements.gif.14759d113a063f741a47ec8e185abd07.gifdraw_package.png


    At https://www.mesurasoft.com/Plabel you can find downloadable demos of the three editors: labels, flowcharts and technical drawings, an example of generating a dynamic SVG from a browser with webbroker, as well as a pdf document where the editor's functionalities are explained for the end user.

     

    Here https://www.youtube.com/@MESURASOFT are some videos showing funcionalities

     

    It is available in versions Delphi 10 (Seattle) to Delphi 12.0 (Athens)

     

    Previous users who purchased the PLABEL VCL 2.8 license of the components have a special access price to this version. There is a 20% discount coupon [ PLABEL ] until September 4.

    labelling.png

    draw_dim.png

    flowchart_01.png

    kitchen.png

    • Like 5

  6. 17 hours ago, JGMS said:

    Thanks for your reply @KoRif,

    I found out that my (VCL) programs use the installed version on the target machine, rather than the embedded version of Python in the program. The debug-version of the executable showed errors that libraries were missing. These libraries were included in the side-packages subfolder associated with the executable, but were absent in the Python folder of the machine. Apparently, there is no embedding!

    Thus the question remains: what do I wrong? I use the following code for the creation of the Python form:

     

    
    procedure TPyForm.FormCreate(Sender: TObject);
    begin
      MaskFPUExceptions(True);
      PythonEngine1              := TPythonEngine.Create(PyForm);
      PythonEngine1.RegVersion   := '3.10';
      PythonEngine1.DllName      := 'python310.dll';
      PythonEngine1.AutoLoad     := false;
      PythonEngine1.AutoFinalize := true;
      PythonEngine1.AutoUnload   := true;
      PythonEngine1.UseLastKnownVersion := false;
      PythonEngine1.RedirectIO   := false;
      PythonEngine1.loadDLL; 
      PyEmbeddedResEnvironment3101.pythonEngine := PythonEngine1;
      PyEmbeddedResEnvironment3101.Autoload     := True;
    end;

    When the project is compiled the folder 3.10 is created or updated, with all required libraries in it.

    An installation program copies everything that is needed to the target machine. So far so good, I'd presume.

    What more is needed? Anything specific in the registry settings, like "Environment Variables"?

     

      I don't know about Python, but if I understand correctly : is it possible to make an isolated installation of Python including libraries like matplotlib, pandas, etc and using it from Delphi?. Is it needed any user installation?. Thanks


  7. 11 minutes ago, PeterBelow said:

    What you see is due to rounding errors when scaling individual character widths, these accumulate over the text width. If you want true WYSIWYG display you have to basically place each character individually at positions calculated from the font information. The API offers a large group of functions for this purpose, see Font and Text Functions

    Thanks Peter, I will investigate in that direction. Do you have experience about the speed performance to calculate widths and drawing character individually?


  8. I am rewriting an editor where I am looking to display some text on the screen, to which I can zoom and therefore increase or decrease its size, and ensure that what I display on the screen corresponds to what I get when printing what has been drawn. From what I've been reading, GDI doesn't always respect these relationships in terms of text sizes, although when printing it can display the result well. As I show in tests I've done where I want to draw a 10mm high text, when I double the height to 20mm, the width of the text is not equal to double, as seen in the image. Is there a way to get the ratio to hold and equal to what we get in print, thanks.

     

    GDI_RENDERING_TEXT.thumb.png.4aba5d29cf1861af07c52ae29fa0f70f.png

     

    I use this code to draw the text:

     

    procedure TForm3.Button4Click(Sender: TObject);
    var
     h: integer;
     TextOutSize: TSize;
     NewFont, OldFont: HFont;     // holds the old and new fonts
    begin
     bmp:= TBitmap.Create(Image1.Width,Image1.Height);
     bmp.PixelFormat:= pf32bit;
     try
       bmp.Canvas.Brush.Color:= clWhite;
       bmp.Canvas.Brush.Style:= bsSolid;
       bmp.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));
       bmp.Canvas.Pen.Color:= clSilver;
       d:= 0;
       h:= 0;
       while d<= Image1.Width do
        begin
         if (h = 5) then
          begin
           bmp.Canvas.Pen.Color:= clGray;
           h:= 0;
          end else bmp.Canvas.Pen.Color:= clSilver;
         bmp.Canvas.MoveTo(d,0);
         bmp.Canvas.LineTo(d,Image1.Height);
         Inc(d,10);
         Inc(h);
        end;
       d:= 0;
       h:= 0;
       while d<= Image1.Height do
        begin
         if (h = 5) then
          begin
           bmp.Canvas.Pen.Color:= clGray;
           h:= 0;
          end else bmp.Canvas.Pen.Color:= clSilver;
    
         bmp.Canvas.MoveTo(0,d);
         bmp.Canvas.LineTo(Image1.Width,d);
         Inc(d,10);
         Inc(h);
        end;
       bmp.Canvas.Brush.Style:= bsClear;
       bmp.Canvas.Font.Color:= clBlack;
    
       SetMapMode(bmp.Canvas.Handle,MM_ISOTROPIC);
       SetViewportExtEx(bmp.Canvas.Handle,Image1.Width,Image1.Height,0);
       SetWindowExtEx(bmp.Canvas.Handle,Round(Image1.Width * 25.4 / GetDeviceCaps(bmp.Canvas.Handle, LOGPIXELSX)),Round(Image1.Height * 25.4 / GetDeviceCaps(bmp.Canvas.Handle, LOGPIXELSY)),0);
    
       // Create a 10 mm font 
       NewFont:= CreateFont(10, 0, 0, 0, FW_NORMAL, 0, 0, 0,
                               DEFAULT_CHARSET, OUT_TT_ONLY_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH or
                               FF_DONTCARE, 'Arial');
       OldFont := SelectObject(bmp.Canvas.Handle, NewFont);
    
       bmp.Canvas.Pen.Width:= 0;
       bmp.Canvas.Pen.Color:= clBlue;
    
       TextOut(bmp.Canvas.Handle,0,10,txt, Length(txt));
       MoveToEx(bmp.Canvas.Handle,0,10,nil);
       LineTo(bmp.Canvas.Handle,230,10);
       MoveToEx(bmp.Canvas.Handle,0,20,nil);
       LineTo(bmp.Canvas.Handle,230,20);
    
       GetTextExtentPoint32(bmp.Canvas.Handle, PWideChar(txt), Length(txt), TextOutSize);
    
       TextOut(bmp.Canvas.Handle,230,10,PWideChar('Width: ' + TextOutSize.cx.ToString), Length('Width: ' + TextOutSize.cx.ToString));
    
       SelectObject(bmp.Canvas.Handle, OldFont);
       DeleteObject(NewFont);
    
       //  Create a 20 mm font 
       NewFont:= CreateFont(20, 0, 0, 0, FW_NORMAL, 0, 0, 0,
                               DEFAULT_CHARSET, OUT_TT_ONLY_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH or
                               FF_DONTCARE, 'Arial');
    
       OldFont := SelectObject(bmp.Canvas.Handle, NewFont);
    
       bmp.Canvas.Pen.Width:= 0;
       bmp.Canvas.Pen.Color:= clBlue;
    
       TextOut(bmp.Canvas.Handle,0,30,txt, Length(txt));
       MoveToEx(bmp.Canvas.Handle,0,30,nil);
       LineTo(bmp.Canvas.Handle,230,30);
       MoveToEx(bmp.Canvas.Handle,0,50,nil);
       LineTo(bmp.Canvas.Handle,230,50);
    
       GetTextExtentPoint32(bmp.Canvas.Handle, PWideChar(txt), Length(txt), TextOutSize);
    
       TextOut(bmp.Canvas.Handle,230,30,PWideChar('Width: ' + TextOutSize.cx.ToString), Length('Width: ' + TextOutSize.cx.ToString));
    
       SelectObject(bmp.Canvas.Handle, OldFont);
       DeleteObject(NewFont);
    
       Image1.Picture.Assign(bmp);
     finally
      FreeAndNil(bmp);
     end;
    end;

     


  9. Hello, some time ago I thought of making a program that could be used by young programmers and students who need to write a project document and show them the possibilities of programs they could develop with Delphi. I have recently published the program and it is called TICdoc. The program also has a diagram editor and a code editor for saving code snippets that can be tagged for further searches. A project document is generated by uniting various types of sections (functional requirements, table of contents, Gantt charts, use cases, etc). Some of these sections have their own editor and the editable sections have a text editor (html) to which styles (css) can be applied. The program uses a SQLite database. It is free and does not have any usage restrictions. It is signed with an OV certificate, which I know shows some warning when downloading it in the browser.

     

    You can see it at TICdoc  , there is also a youtube channel (currently only in spanish) where you can watch short videos of program features

     

    Small task editor at intro page:

     

    tasks.thumb.png.001413f1bf66adbe26b8b0080bac50b4.png

     

    Code editor to save snippets (SynEdit component):

    code_editor.thumb.png.79638391b16798d6afa7ea9487de6f5f.png

     

    Diagram editor (TMS Diagram Studio), you can insert this diagrams into project document:

    editor_diagram.thumb.png.c00f5ecc067f0277eb644a5b16205afc.png

     

    Document editor (HTML component library):

     

    project_document.thumb.png.1f4294c6633f36deccd4310aa44ac692.png

     

    In the editable section you can insert images, formulas, tables, data-bound tables, editor diagrams or PlantUML diagrams:

    plantuml.thumb.png.66a33d9ba3f385b464e8f26cdd5b14e4.png

     

    By clicking on the active language in the lower bar we can change the language (it is in a json file, so it can be translated into other languages, it is currently in Spanish and English)

    change_language.png.295715df70902e6f4cf121b8400a37cc.png

    • Like 1
    • Thanks 5

  10. 1 hour ago, Lars Fosdal said:

    We create all these in code.  No visual components used.

    We have no sea of DB components floating in designers. It requires a bit more scaffolding code, but it can be generalized and made threadsafe.

    Yes, rapid development is not always the best solution for big projects.


  11. Hello, and thanks for your reply. The python  DLL 3.11 can be loaded because I can run basic scripts, but when try to execute scripts that imports modules like matplotlib, numpy, pandas, etc raises that errors.  I confirm that 3.10.9 runs ok without that errors.


  12. Hello, I have started working with Python4Delphi. I have installed Python 11, and in environment variables is set the path to the python exe folder and the scripts folder. I have installed with pip the modules of the examples of the webminar II of the tutorials (python4delphi/Tutorials/Webinar II at master · pyscripter/python4delphi · GitHub). I can't get to run the scripts without getting errors like: "no module named _ctypes", it's a required module for Pandas. I have also got this error with the unicodedata module, I installed with pip unicodedata2, but it doesn't work either. Any suggestions for things to check?


  13. I have an application developed with Delphi 10.4 where I use the Diamond vcl style. The app shows up fine, but when I run the same code with Delphi Alexandria it shows a strange result.

    The main window when the application starts (the same with Delphi 10.4 and Delpgi Alexandria):

     

    frame_window_1.thumb.png.41cbf3e1585a528bf52ff2dd3ef5b3b8.png

     

    If I open a second form created by code. The result with Delphi 10.4 is this:

    frame_editor_2.thumb.png.fe4c054acdc26e06a5e6e197380ddf51.png

     

    But when open with Delphi Alexandria it shows wrong rendering:

    frame_editor_1.thumb.png.c78a97940a2e74429e5149f63481c7d2.png

    As you can see the border icons have disappeared, after closing the window, the main screen is also displayed wrong with Alexandria:

    frame_window_2.thumb.png.e2394262cb07e6dda9c906a7330837d2.png

     

    Any suggestions of things to check?, thanks

     

    options.thumb.png.4c7c3e38a84352b33b8b9c3345053df0.png


  14. 3 hours ago, Hans J. Ellingsgaard said:

    Is there a reason why you can‘t use generators?

    Really is that there was no reason not to use it, finally it is what I have done and as Anders suggested it solves the problem. Thanks

    3 hours ago, Stano said:

    I don't think logic anymore. What happens if you have the same dates? Are the dates changing?
    The date itself is a unique number. Isn't that enough for you?

    In this case the date did not work because I need also assign a code from that number.

    2 hours ago, Anders Melander said:

    Wrong conclusion. What is more likely? That there is something wrong with transactions or that there is something wrong with what you're doing?

     

    Your method is flawed unless you can guarantee that there will never be more than one transaction active against the database at a time.

    Consider this:

    • A: Start transaction
    • A: select max(NUMBER) returns 1
    • B: Start transaction
    • A: Post new row with NUMBER=2
    • A: Commit
    • B: select max(NUMBER) returns [...drumroll..] 1
    • B: Post new row with NUMBER=2
    • B: Commit

    Like Hans suggested, use a generator. That's what they're there for.

     Thanks Anders, now works without repetitions using a generator.

    • Like 1

  15. Hello, I have a Firebird table (ORDEN) where I need to have a unique numbering in a field depending on the date. In the before insert of the table I define a trigger that basically does this:

     

    SELECT MAX(NUMBER) FROM ORDEN WHERE FECHAINT >= :FECHA INTO :NUM;
    IF (:NUM IS NULL) THEN NUM = 0;
    NUM = :NUM + 1;
    NEW.NUMBER = :NUM;

    Sometimes numbers are repeated in this table, so I deduce that something is wrong in the handling of transactions to cause this error. I work with Firedac, what are the properties of the connection or the write and read transactions supposed to be to avoid this problem?, thanks


  16. 36 minutes ago, borni69 said:

    Thanks, I can create it in a datamodule, but I still do not understand howto get this datamodule all the way down to the controller..

     

    FMVC.AddController(TCustomersController);

     

    Tcustomercontroller is a class created on request  ,and the dict is created at startup.

     

    I undestand that I can use/create a datamodule in the controller, but not howto use one created at startup, holding all the data,, normally I would send the dict to my class using a variable.

    
    procedure TMyController.GetCustomers ;
      var 
       lCustomersModule : TMyDataModule ; 
        begin 
         lCustomersModule := TMyDataModule . Create ( nil ) ; 
          try 
           lCustomersModule . QryCustomers . Open () ; 

     

    again thanks

     

      I will also try a few options myself...

    No , this datamodule should be created at start, and always alive, you reference it from your controller (add datamodule unit to controller), and access it through TMultiReadExclusiveWriteSynchronizer.

×