Search options (Page 1 of 2)

great ! yes  thank you !

can you make all 3 check execute automatic on startup too ?

thanks a lot  done

I'm not a reader but I start understanding the language
I combined it with a httpget
not it's exactly what I want

thank a lot for your nice help and spending time

that works !

thank you so much

justify text in the box I mean

using this script

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
    res: String;
    ts : Array of String;
begin
    res := HTTPGet('http:// my website /info.html', True);
    ts := SplitString(res, '|');
    if (length(ts) = 3) then begin
        Form1.ver.Text := ts[0];
        Form1.msg.Text := ts[2];
    end else
        errorMsg('Invalid Data!!!');
end;

the text pulled from the server runs out of the frame instead of changing line down
also, I would like to add scroll down when the test runs will tun out of the frame downwards

thx

Thank you very much for all your help !

I tried and nearly succeed but after I tried again I didn't end up with success

Problem is that I have no integer,  and want one colum only

file names are made from letters, underscore, dots and numbers as in test database
search works great

I pasted you my project here so maybe you would be kind enough to integrate your download function

I uploaded the listed test files on server and pasted the http ip in the script  so you can test it

thank you, you are great !

sorry I can't get it working

may I get some more help please ?

also,  all files come from same link and have same name as shower in the text colum

so maybe its possible to add something in the script that will add automaticly http://www.mywebsite.com/ before the file name
so I don't have too long lines in the database

more picture

thank you for that very short answer but I don't understand

here is my code:

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
    res: String;
    ts : Array of String;
begin
    res := HTTPGet('**********.org/ninfo.htm', True);
    ts := SplitString(res, '|');
    if (length(ts) = 3) then begin
        Form2.ver.Text := ts[0];
        Form2.msg.Text := ts[2];
    end else
        errorMsg('Invalid Data!!!');
end;

and here is the error

so what should it be ?

thank you !