Jump to content

limelect

Members
  • Content Count

    767
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by limelect


  1. No they all work with this Windows 7. With no problems

    All I say is that Drag and Drop does not work under

    above conditions in the IDE.

    Neither the message problem work on D7

    which mean that there is a System problem interacted with  Delphi IDE


  2. I do not know if this help

    The problem of drag and drop (I did not check for messages)

    Persist with D7 too.

    Drage and Drop does not work on D7 either.

    Only outside of Delphi.

    So it is Windows 7 ported to ANY Delphi.

    Any idea how to check this?

     

    \


  3. @Remy Lebeau @Anders Melander as i said on my D10.2.3  IDE nothing works as for drop

    As for my basic demo, I did exactly the suggestion no !!!! breakpoint in ide

    how ever message works with exe

    as for the analyzer I cannot drop either in ide or exe

     

    I doubt that I can be helped. it has something to do with

    my d10.2.3 and my Windows 7 system I guess.

     

    One more option is that a component I install does the problem

    But since I have large amount it is impossible to find which.

    OR an expert?

     

    Thanks


  4. D10.2.3 window 7

    I have had this problem for many years I wonder if there is a solution

    The program does not break on message in the IDE

    However, running the execution it works.

    P.S I see the + sign on the form when dragging a file wile in the IDE

          Drag and Drop do not work either

     

    I saw David Heffernan solution, but it did not help.

    https://stackoverflow.com/questions/14244325/drag-and-drop-files-to-delphi-form-not-working

     

    Any help?

     

    .

    unit Unit1;

    interface

    uses
      Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
        System.Classes, Vcl.Graphics,
      Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, ProCtrls, Vcl.StdCtrls;

    type
      TForm1 = class(TForm)
        procedure FormDestroy(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
        procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    uses
      ShellAPI;

    procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
    begin
      inherited;
      MessageDlg('dssdfsd', mtWarning, [mbOK], 0);<<<<<<<<<<<<  does not break
    end;

    procedure TForm1.FormDestroy(Sender: TObject);
    begin
      DragAcceptFiles(Self.Handle, False);
      inherited;
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    inherited;
      DragAcceptFiles(Self.Handle, True);
    end;
    end.
     


  5. I cannot communicate with my SSL site

    I cannot communicate to any HTTPS://

    What am I doing wrong?

     

    function GetUpDate(Link: string): string;
    var
      S: string;
      IdHTTP: TIdHTTP;
      SSL: TIdSSLIOHandlerSocketOpenSSL;

     

    begin
      IdHTTP := TIdHTTP.Create(form1);
      try
        SSL := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
        with SSL.SSLOptions do
        begin
          Method := sslvTLSv1_1;  <<<< I tried them all
          Mode := sslmBoth;
          SSLVersions := [sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1, sslvTLSv1_1,
            sslvTLSv1_2];

         end;
          IdHTTP.IO.Handler := SSL;
         //    S := IdHTTP.Get(Link);
          S := IdHTTP.Get('https://limelect.com/UpDate/document-projects.txt');

          result := S;
      except
        result := '';
        ShowMessage('Could not get VERSION information from the INTERNET');
      end;
      IdHTTP.Free;
      SSL.Free;
    end;

     

    I do not want to use any DLL plz.
     

    Screenshot - 30_01_2024 , 10_14_07.jpg


  6. Sorry guys to bother

    .I came to a conclusion that it is Embarcadero's problem or mine.

    as it is in __init__.py

          if 'DelphiVCL' in fname:
            return os.path.join(sdir, os.path.basename(fname))
        raise ValueError("DelphiVCL module not found. Try to reinstall the delphivcl package.")
    
    why ? i do not know. so I hop one of thos Delphi guys will see this

    All the package portions are there and in GUIPY it finds it

    but not as an execution.

    I single step to see this.

    Thanks


  7. I wonder if someone can help.

    I made this Python to EXE with Delphi

    https://limelect.com/downloads/python-2-execute/

    It works BUT

    when I use it on Delphi Py the first line does not find it.

     

    from delphifmx import *
    from parent_window import Parent_Form

    def main():

     

    Running this script on GUIPY with no problem

    The  line I am using is

    pyinstaller.exe --windowed D4P_export_demo.py --onefile --paths=C:\Users\LimElect\anaconda3\Lib\site-packages\delphifmx --name D4P_export_demo 

    I have tried all combinations and could not find something.

    -paths=C:\Users\LimElect\anaconda3\Lib\site-packages\delphifmx

    is the path to the library. But GUIPY finds it with no problem

     

    P.S. I have asked this question on the Python platform with no answer.

    StackOverflow rejected my question I do not understand why

     so you are left.

    One more thing pip list shows the package

     

    Screenshot - 13_12_2023 , 11_41_14.jpg

×