Jump to content

haentschman

Members
 View Profile  See their activity

  • Content Count

    210

  • Joined

  • Last visited

  • Days Won

    5

Posts posted by haentschman

  1. Posted · Edited by haentschman

    Hi...:classic_cool:

     

    I am trying to connect to our new ADS server for the first time. (Third party software, access data with read rights available). On another VM the Advantage Data Architect is running with the same access data. Share on the Database folder available.

    ...it does not want me.
    "...cannot authenticate the user..." :classic_unsure:

     

    What is missing?

     

    Thanks.

     

    PS: On my machine the Advanced Data Architect is also working...:classic_blink:

     

    Crosspost: german DP https://www.delphipraxis.net/213554-zugriff-auf-ads-server.html#post1525731

    FD.png

  2. Posted · Edited by haentschman

    Hi...:classic_cool:

    How about source code? Complete project?

    What is the mainform? Don´t free the mainform! :classic_huh:

     

  7. Posted · Edited by haentschman

    Hi :classic_cool:

     

    I don't use the studio yet. I was only interested in the principle of whether this is possible at all. :classic_rolleyes:
    I have an Outlook mail with which the images are embedded via copy/pase. These have NO file name. I would like to save only the marked picture, which is no file, by drop into a folder. To do this, the "metadata" of the image would have to be converted to PNG or JPG...and get a filename. The normal way is...save the image over context menu. I want it over Drag without temporary file. :classic_cool:

    Outlook -> MyApplication

     

    Thanks...

    Menu.PNG

  9. Posted · Edited by haentschman

    Hi...:classic_cool:

    I need a "Like" in the filter list. With %Value% it works. But users don't understand that. I want to have: on entering "Bla" result from the dataset 'MyBla', 'BlaBlubb'.

    At DevExpress there is this entry:
    https://supportcenter.devexpress.com...-or-like-value
    created 15 years ago...with further links. All are imho not purposeful. ...Endless loop from link to link.:classic_unsure:

     

    I have felt through all filter settings.

     

    Does anyone have any ideas.

     

    Thank you.

     

    Version: 21.2.9

     

    CrossPost: germanDP https://www.delphipraxis.net/212875-devexpress-filterrow-ohne-wildcard.html#post1521131

     

  14. Posted · Edited by haentschman

    Hi...:classic_cool:

    Quote

    But in this company..... every programmer does whatever it wants (function that have 2000 lines of code, as strings are named s, k or i, etc)

    :classic_blink: Sorry, but it is not the right company. That's where the developers get in their own way. Uniform styles are important to understand all "developers" and their code. The management must set the standard!

    Try to talk to the others about a simple standard (prefixes for components, meaningful variable names, begin/end styles - separate lines or not, CTRL+D for all...).

     

    What is the total number of lines of source code? Do you have a trainee for the implementation of the styleguide in the old code? :classic_tongue:

     

    no matter what you do...

    Quote

    But nothing will save you from a sloppy project manager! If the boss doesn't care, who needs that boss!

    ...that is the problem!

     

     

    another one... PDF 😉 ...great work! :classic_cheerleader:

     

    Manual_on_Object_Pascal_Style_Guide.pdf

    • Like 1
    • Thanks 1

  19. Posted · Edited by haentschman

    Hi...:classic_cool:

    Quote

    I don't think I could pass the exam

    ...really? :classic_tongue:

     

    There are two types of exam:

    Delphi Certified Developer: via online / browser ... i have  (exam time: ~1 hour)

    Delphi Master Certified Developer: ... Uwe has   (exam: i dont know time and where)

     

    https://www.embarcadero.com/resources/embarcadero-certification-center

    ...what you want?

     

    • Like 2

  21. Posted · Edited by haentschman

    SQL:
      

    Qry := TFDQuery.Create(Self);
Qry.Connection := Self.AC;

Qry.SQL.Text := 'select * from Documents where OriginalFileName like :PAR';
Qry.ParamByName('PAR').AsString := '%1001\%';  // with "\"
Qry.Open;

    Like.thumb.PNG.15b5b58dfafc391fc47c403f762fdfab.PNG

      

    Qry := TFDQuery.Create(Self);
Qry.Connection := Self.AC;

Qry.SQL.Text := 'select * from Documents where OriginalFileName like :PAR';
Qry.ParamByName('PAR').AsString := '%1001%';  // without "\"
Qry.Open;

    Like1.thumb.PNG.0f54ce32c96d8707d9c2e6fa7696d5fe.PNG

     

    ...it works...i not like guessing. :classic_huh:

     

    • Like 2

  22. Posted · Edited by haentschman

    Quote

    I do not see how it applies to my case

    It is a basic problem with only text in the sql statement!

     

    Quote

    PLZ stop guessing 

    :classic_blink: 

    SQL.Text:
select A.ID,A.DistributorID,A.DocumentTypeString,A.DocumentCaption,A.OriginalFileName,A.SendTypeFolder, A.SendTypeUSB, A.SendTypeMail,
       A.ReceiptDate,A.ServiceDate, A.ReceiptNumber,A.Store,A.ReceiptReceiver,A.ServicePartner,
       A.AddDate,A.AddName,A.ModifiedName,A.ModifiedDate, 
       D.Name1 as StoreName,D.Name2 as StoreName_1,D.LKZ as StoreCountry,D.PLZ as StorePostCode,D.Ort as StoreLocation,
       D.Strasse as StoreStreet,D.Telefon as StorePhone,R.Name1 as ReceiverReceiverName
       from Documents A
       full outer join ADR D on A.Store = D.ixADR
       full outer join ADR R on A.ReceiptReceiver = R.ixADR
  where A.OriginalFileName like :REN
  order by ID desc
...  
Qry.ParamByName('REN').AsString := '%[_]' + Pair.Key + '[_]' + Pair.Value + '%';

    is from me in my the original code. Works! (FireDAC, MSSQL)

     

     

     

  23. Posted · Edited by haentschman

    Quote

    AFAIK parameters couldn't be used inside clauses like LIKE 

    ...no. :classic_cool: 

    FDQuery1.SQL.Text := 'select * from tab where code LIKE :Code';
FDQuery1.ParamByName('code').AsString := '%123%';
FDQuery1.Open;

    ...the "%" is in the parameter!

     

    Other Example: 

    Qry.ParamByName('REN').AsString := '%[_]' + Pair.Key + '[_]' + Pair.Value + '%';

     

    • Like 2
    • Thanks 1

  25. Posted

    Hi...:classic_cool:

     

    That's why the components are called "data sensitive". Without a direct connection to the database you have no data.... (unless there is something new :classic_tongue:)

    You have to come up with a separation of data and database.


    Variant 1:
    1. load data with query
    2. transfer the data into objects
    3. throw away query
    4. change data in object
    5. save object with SQL (create query, throw away query)
    ... with this variant one gets along also without data-sensitive components. You can then display an object in the grid as well as a property in the edit.

     

    Variant 2:

    Copy to another dataset:

    https://docwiki.embarcadero.com/Libraries/Sydney/en/FireDAC.Comp.DataSet.TFDDataSet.CopyDataSet

     

    Imho there are other variants....

     

    :classic_smile:

×