Search options (Page 4 of 18)

Hello Vasco,

I encountered a similuar situation when I wanted to compare values from my database with values found online. Here is how I solved the problem :

First I create a TStringList :

LocalList := TStringList.Create;

Then I populate the list with the result of a query :

SQLQuery('SELECT asset_sku FROM asset WHERE id_vendor = 1 AND asset_is_reserved = 0',Results);

                        //-----> Now let's fill the localList with the results of the query
                            while not Results.Eof do
                                begin
                                    LocalList.add(Results.FieldByName('asset_sku').AsString);
                                    Results.Next;
                                end;
                            Results.Free;

(in your case this would be id's and not asset_sku)

Now the list is full of local references, I use the same technique to create a second one but with online data.

OnlineList := TStringList.Create;

and I fill it with another procedure.

Comparing both list was just a matter of checking the existence of an item from one list into another like this :

for i := 0 to OnlineList.Count - 1 do
     begin
          ...
          if localList.IndexOf(onlineList.Strings(i)) = -1 then
          ...
     end;

meaning : "if index of element i from OnlineList into LocalList is not found (-1)  then..."
If another value is returned, it means that the element is present in the list and the value is it's index.

Now, regarding your array question. You usually create an Array by splinting a TStingList.

Remember the

LocalList.add(Results.FieldByName('asset_sku').AsString);

command ?

We did not mention any separator for the list, the default one being a comma. So to get an array of strings out of the list, it's just a matter of splitting into after every comma like this :

LocalArray := SplitString(LocalList,',');

(declare your Array of String or Integer into the variable section, but you do not need ti initialize (create) it before using)

SIDE NOTE 1
If you already have a string with value separated by commas, you can load it directly into a TstringList like this :

OnlineList := TStringList.Create;
OnlineList.CommaText := sku_string;

SIDE NOTE 2
So, TstringList or Array ? That's up to you. I personally find it easier with TstingList to handle data in memory, to add or remove values and so on. All those things you can certainly do with an Array as well. But Array, especially multi-dimensional ones can get tricky, so I tend to stick to the following principle : KISS (keep it simple stupid).

Hope this helped a little

Cheers

Mathias

Hello Jean,

There are two approaches : check if file exist or check if file does not exist.

if FileExists('path to the image and name of the image with extension') then
     begin
         Some awesome code
    end;

if not FileExists('path to the image and name of the image with extension') then
        begin
            Some awesome code
        end;

In the situation you described, I'd check for non existence of the file and if true then save to disk and load, else, just load.
This could look like :

with Form1.DBImage1 do
    begin
        if not FileExists('path to the image and name of the image with extension') then
            begin
                HTTPGetFile('URL of the image','path to save image and name of the image with extension',True);
                LoadPicture('path to the image and name of the image with extension');
            end
       else if FileExists('path to the image and name of the image with extension') then
           begin
               LoadPicture('path to the image and name of the image with extension');
           end;
     end;

Hope this helps a little, do not hesitate if you have moire specific questions on the matter.

Cheers

Mathias

Bonjour Jean-Marc,

I've been pocking around your script and found two interesting details.

The first one is that assertion at the beginning :

uses 'toolbox.pas';   

I found the file in the script folder but was wondering if you managed to really use it by including it at the beginning of your script, or if it was just some leftover code you forgot to delete

Second this is that 'wbGetFile.exe' application that you distribute with your compiled project.

Would you mind showing us how you managed to pass the download URL from MVD to that application ?

Cheers

Mathias (de Nouvelle Calédonie)

Thanks for your answer Dmitry,

I'll find another way to proceed

Cheers

Math

Hello Teco,

Not sure what

Rechnerverwaltung.RSoftware

is. If this is a Tablegrid that you want to fill with a query, you should try :

Rechnerverwaltung.RSoftware.dbSQL:= 'select software.id,software.softwarename from software left outer join softwarerechner on software.id=softwarerechner.id_software where softwarerechner.id_rechner='+inttostr(rechnerid);
Rechnerverwaltung.RSoftware.dbSQLExecute;

The first instruction loads the query and the second on executes it.

Hope this helped.

Cheers

Mathias

PS :
You can add before the dbSQLExecute command this line :

Rechnerverwaltung.RSoftware.dbListFieldsNames := 'Software ID,Sowftare Name';

This would result in setting the names you want for the Tablegrid columns you are filling instead of those coming from the query.

Also, using 'delete_col' in place of one of the column name would result in hiding the column.

I personally prefer setting visibility, column width, alignment, names etc. on a unique 'OnChange' event of the Tablegrid.

Hello teco,

I don't have all your answers but :

Regarding the script size and limits : I'm well over 12.000 lines of script and it work without problems. The script.pas size is 600Ko and the script.dcu is 2,3Mo and it works.

Regarding the error message : I had the same one with v3.5b biut the situation was special. On my form there was :
- a tablegrid
- a few SQL query buttons
this worked until I hadded a combobox filled by script like this :

folder_reading.ComboBox3.Clear;
    folder_reading.ComboBox3.Items.add('DIM files (IMxxxx.zip)');           //index0
    folder_reading.ComboBox3.Items.add('Exe files (old DAZ sku format)');   //index1
    folder_reading.ComboBox3.Items.add('Rar files');    Index2
    folder_reading.ComboBox3.ItemIndex := 0;

This addition triggered the "Index out of bound (0)" when a SLQ Query button was clicked.

Getting ride of the last line

folder_reading.ComboBox3.ItemIndex := 0;

made the error disappear

Just in case you were in the same situation and this could help you.

Cheers

Math

Hello Derek,

I had a look at you project and I have to admit that, without script, I don't see how to solve your problem.
I have the same behavior that the one you described.

Guess you'll have to wait for Dmitry.

Sorry

Cheers

Mathias

Hello lupo1st,

There is no embedded function to convert Hexadecimal to Integer because there is no need for it : hex are just strings.
3877 is an integer with a value and $F25 is the same value but presented in a different way.
You tried IntToStr while you should have used the other one : StrToInt

All you have to do is treat that hex value as a string and use the StrToInt function to convert it to integer, keeping the $ or it won(t be recognized.

In the following example, I setup and edit field to receive the hex value and a button to convert it :

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    hex : String;
    int : Integer;
begin
    hex := Form1.edHex.Text; //Hex value with $ sign
    int := StrToInt(hex);

    ShowMessage(IntTostr(int));
end;

Of course, I had to convert again the int to an Str to display it but after conversion. I you use your converted value right away, you don't need to re-convert it.

Hope this helps

Cheers

Math

Hello again Dmitry,

Works perfectly with beta 3.5, thanks a million times.

Subsidiary question : Is there a limit of icons you can add to a TImageList (Like after 8, you have to create a second list) ?

ADDITIONAL HELP FOR PEOPLE WHO WANT TO USE CUSTOM IMAGELIST

Until now, we could only add icons to Menus and PopupMenus with format Bitmap with transparency which were... well... ugly

With this new addition from Dmitry, you can now use PNG images with transparency for your Menus and PopupMenus very easily.

Here is an example on how to add a nice icon to a PopupMenu Item attached to a Tablegrid (of course, you'll have created you TImageList like shown in Dmitry's example)

procedure Form1_OnShow (Sender: string; Action: string);
var
    Pop : TPopupMenu;
    MyItem1 : TMenuItem;
begin
    Pop := TPopupMenu.Create(Form1);    //Create main PopupMenu
    Pop.Images := ImageList;            //Assign TImageList to PopupMenu

    MyItem1 := TMenuItem.Create(Pop);   //First Item of the PopupMenu
    MyItem1.Caption := 'Test pop Menu'; //Caption of the Item
    MyItem1.ImageIndex := 1;            //Image index assigned to the Item
    Pop.Items.Add(MyItem1);             //Add Item to PopupMenu

    Form1.TableGrid1.PopupMenu := Pop;  //Assign PopupMenu to Tablegrid
end;

Hope this helps

Cheers

Math

Juste une information en passant : cela fonctionne chez moi sous Windows 10 64 bits sans erreur.

Ha... et j'allais oublier.... magnifique catalogue !!

Mathias