Jump to content

Gustavo.deo

Members
 View Profile  See their activity

  • Posts

    43

  • Joined

  • Last visited

 Content Type 

Posts posted by Gustavo.deo

    Problem encryption!!!

    in General

    Posted

     

    Good Morning!!! I have a password encryption function to write to the database !!! But I'm having problems ... in the application to win the word pave2010 in function gets zk€o<:;: However due to unigui using utf-8, it returns zk'#$0080'o<:;: I have tried to change the charset in servermodule but I did not succeed ... Any suggestion??

     

     

     

    function TFuncoes.EncryptPassWord(sPassWord:String):String;

    var

      i   : Integer;

    begin

      Result := sPassWord;

      for i := 1 to Length(Result) do

        Result := Chr(Ord(Result) + 10);

    end;

    Urgent!!! Multi Section ???

    in General

    Posted

    Do you have database components on ServerModule? That is the wrong place...

     

    Sorry my english but I use a translator !!!

    My connection components are in MainModule ...

    I have several DataModules in my project ... I noticed that when SQL is in DataModulo1, the transactions work ... When they are in the other DataModules, the transactions are ignored ... as if they were in another session ...

    How to make all DataModulo use the same session ???

    Thank you!!!

    Urgent!!! Multi Section ???

    in General

    Posted

    I have a project in which some moments I need to control the transactions manually !!! I happen to have problems, because all users are staying in the same section !!! User X initiates the transaction ... user Y does Start and commit in his section (which should be separated) .. If user X does the Rollback, everything that user Y did will be lost !!! How to instantiate a section for each user ?? Thank you!!!

     

    Connection Type FireDac and DataSnap 

    How to get the full file path???

    in General

    Posted 

    procedure TMainForm.UniFileUpload1Completed(Sender: TObject; AStream: TFileStream);
var
  DestName : string;
  DestFolder : string;
begin
  DestFolder := UniServerModule.StartPath + 'UploadFolder\';
  DestName := DestFolder + ExtractFileName(UniFileUpload1.FileName);
  CopyFile(PChar(AStream.FileName), PChar(DestName), False);
  ShowMessage('File ' + UniFileUpload1.FileName + ' Uploaded to folder ' + DestFolder);
end;

    Thanks!!!!

     

     

     

     

     

    You get no access to client files. What if any website could delete your files?

     

    Why do you need that? Maybe there is another way.

     

     

     

     

    the user will do the reading of a file, and I need to rename or even delete what is not to do the reading of the file again !!! To the know that this file has already been processed !!!

     

    How to get the full file path???

    in General

    Posted

    You use an uniFileUpload and want to get the path of the file on client machine?

     

    Then see #2.

     

     

    Sorry my english but I use a translator !!!

     

    Okay clarified my doubt !!! But would you have some way to rename or delete this file from the client machine ???

    And if I want to save this file from the fileupload to another folder other than temporary file, would it have to do ???

     

    Thanks!!!

    How to get the full file path???

    in General

    Posted

    Good morning friends!!!

    I should not have expressed myself well, I need to get the path of the source file (the file path of the end user's machine) ...

    Taking advantage of the opportunity, if I need to write the file on the server as permanent file (not as temporary file in the cache folder) ... anyone have any suggestions?

     

    Thanks!!!

    MessageDlg - Problem with focus, buttons, close

    in General

    Posted

     

    Olá Gustavo, desculpe pela demora.

     

    1. Como vc fez para personalizar o msgDialog??? pois quando eu chamo o dialog, no lugar do título "questionamento" aparece new application..

    O título da mensagem ele pega o nome da aplicação. É o mesmo padrão utilizado por aplicação vcl 

     

    2. o que seria "datamodel.link.Constante.ExcluirRegistro"???

    Criei uma classe onde há constantes padrões que são utilizadas no sistema, de modo que não haja mensagens fora de padrões, e permita a manutenção caso seja necessário a mudança de alguma mensagem padrão.

     

     

    Hello Gustavo, sorry for the delay.

     
     
     
    1. How did you do to customize msgDialog ??? because when I call the dialog, instead of the title "questioning" new application appears ..
     
    The title of the message takes the name of the application. It is the same standard used by vcl application
     
     
     
    2. what would "datamodel.link.constant.excludeRegister" ???
     
    I created a class where there are constant patterns that are used in the system, so that there are no messages out of standards, and allow the maintenance if it is necessary to change some standard messages.

     

    Thank you ... you were very attentive answering the messages en gave me a good hint of how to solve my problem ...

    I adapted some things and worked perfectly ..

     

    thank you !!!

    Bug in UniGui

    in General

    Posted

    I found a bug in uniGui ....

    I have a UniPageControl component and inside it I put a UniTabSheet ... then I put a UniToolBar and I added some buttons ...
    When calling the function UniPageControl.Pages [0] .ComponentCount it returns me = 0 ... as if I had no component inside the UniTabSheet ... but I have several !!!

    Would you correct this problem ???

     

    Thank You!!!

     

     

    MessageDlg using EnableSynchronousOperations = True

    in General

    Posted

    Hi,

     

    Please, can you clarify your question, and which edition and build are you using ?!

     

    Best regards,

     

    Sorry about my English!!

     

    Edition 1.0.0 build 1421.

    See the code sample below ...

     

    procedure TfTeste.DCallBack4 (Sender: TComponent; Res: Integer);

    begin   

      ModalResult := Res;

    end; 

     

     

    procedure TfTeste.APesquisarExecute (Sender: TObject);

    begin   

      MessageDlg ('mbYesNo', mtConfirmation, mbYesNo, DCallBack4); // i need him to wait for the message to reply before proceding...

      

      if ModalResult = 1 then

        xxxxx

      else

       yyyyy;

     

    end;

     

    how to make???

    MessageDlg - Problem with focus, buttons, close

    in General

    Posted

    In some situations, and they are not always, messagedlg is apparently lost. In the attached image, note that the focus is not on any of the buttons. And even preloading the message does not escape either.

    This has been occurring sporadically, and in various different places in the system.

     

    In the image screen, in the evy onkeydow of the unidbgrid is executed a procedure, that there is nothing special in it, that could be causing this.

    Alguém teria uma idéia do que gera esse tipo de anormalidade?

     

    procedure TfrVenda_Mercadoria.DBGridProdutoKeyDown(Sender: TObject;

      var Key: Word; Shift: TShiftState);

    begin

         if key = vk_delete then

            exclui_produto;

    end;

     

    procedure TfrVenda_Mercadoria.exclui_produto;

    begin

         if UniPageControl1.ActivePage=tbsProdutos then

         begin

              if qryProdutos.IsEmpty then

                 exit;

         end else

         begin

              if qryTroca.IsEmpty then

                 exit;

         end;

     

         if MessageDlg(datamodel.link.Constante.ExcluirRegistro, mtConfirmation, mbYesNo) <> mrYes then

            exit;

     

         try

            if UniPageControl1.ActivePage=tbsProdutos then

               qryProdutos.Delete else

               qryTroca.Delete;

            CalculaVenda;

         except

         on e:exception do

            begin

                DataModel.link.Mensagem.MsgErro(e.Message);

            end;

         End;

     

    end;

    Boa tarde...

     

    sou novo no unigui e ainda estou aprendendo alguns recursos..

     

    Como vc fez para personalizar o msgDialog??? pois quando eu chamo o dialog, no lugar do título "questionamento" aparece new application..

     

    e o que seria "datamodel.link.Constante.ExcluirRegistro"???

     

    Obrigado!!!

    Post UniGui standardAlone for testing

    in General

    Posted

    Help me!!!

     

    So that I can continue the development, I have to be able to run the test on the server!!!
    On the test machine the program is working perfectly, the same .exe on the server, I can query the data, but when giving any post command, the invalid parameter error.

    I am using Server in datasnap with firedac components

    in Unigui, I am using the datasnap with ClientDataSet.

    Thank you!!!

    Form Create is Showing Form

    in General

    Posted

    There is not datamodule only a MainForm and a FreeForm for testing. 

    If you created a Unigui project, a MainModule is automatically created ... In this MainModule you must set to true the EnableSyncronousoperations property in the MainModule.

    StringGrid onDblClick and Cell Value

    in General

    Posted

    Hi

     

    Are you see this demo ?

       

     C:\Program Files (x86)\FMSoft\Framework\uniGUI\Demos\Desktop\StringGrid Demo

     

     

    Best Regards.

    Thanks ...
     
    I have not figured out how to manually enable properties ...
     
    I copied the stringgrid from the example and managed to use the container I needed !!!
     
    Thank you

    Post UniGui standardAlone for testing

    in General

    Posted

    Hi,

     

    You need to install uniGUI Trial on your server too

     

    Best regards,

     

    Thank you!!!
     
    I was able to open the application ...
     
    But it is giving error in the application ... I can open and consult, but when trying to write, it generates the error Invalid Parameter ... being that in the computer of development, the application is working.
     
    What am I doing wrong???

    Post UniGui standardAlone for testing

    in General

    Posted


    I'm trying to install a standaralone application on the server to test, but I can not get it to work !!!

     

    On the development computer, it is working perfectly, but when I try to access the server, there is a message in the left corner of "Loading ..." and it does not go away !!!

     

    Do you have to install some dll to run ???

     

    Thank you!!!



×
×
  • Create New...