1

Topic: need a button remote text popup

Hi all

I need a function for a button

could be in the HelloWorld message as long as the message gets pulled from a link

I want a button to pull a text from a online domain (so that I can change it when I want)
that will popup

like change log

could be in a form too

thx !

Re: need a button remote text popup

Hope this helps.

Post's attachments

Attachment icon onlinelink.zip 494.03 kb, 338 downloads since 2020-09-17 

brian

3

Re: need a button remote text popup

Wow !

perfect

Thank you so much !

4

Re: need a button remote text popup

brian.zaballa wrote:

Hope this helps.

Hi again

small problem, I have no non ssl website to put the file
ssl protocol error with the script

Is there a get FTP code to pull it from ftp ?

or a code to get    h t t p s    to work ?

thx !

Re: need a button remote text popup

Please refer on this: http://myvisualdatabase.com/forum/viewtopic.php?id=6662

Download attachment there and paste the files from .rar into the folder of your application

Post's attachments

Attachment icon 2020-09-18_074956.png 18.99 kb, 137 downloads since 2020-09-18 

brian

6 (edited by pm 2020-09-18 01:53:01)

Re: need a button remote text popup

version ?

thank you for all your kind help

Post's attachments

Attachment icon pict.PNG 7.9 kb, 134 downloads since 2020-09-18 

Re: need a button remote text popup

Can you provide sample link to your file to access?

brian

8

Re: need a button remote text popup

brian.zaballa wrote:

Can you provide sample link to your file to access?


sure

Post's attachments

Attachment icon link.txt 51 b, 281 downloads since 2020-09-18 

9

Re: need a button remote text popup

pm wrote:
brian.zaballa wrote:

Can you provide sample link to your file to access?


sure



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

Post's attachments

Attachment icon out.PNG 12.14 kb, 127 downloads since 2020-09-23 

10

Re: need a button remote text popup

justify text in the box I mean

11

Re: need a button remote text popup

jumping lines in the pulled htm file text would do it
like with a <br>

12 (edited by brian.zaballa 2020-09-24 15:15:21)

Re: need a button remote text popup

sorry haven't been online in a while, I can't find a solution to the https. I think it something to do with your server. Anyway, you got a solution to that as i can see.

In the case of <br>, you need to do some script to that, try replacing it whitespace or newline with using ReplaceStr Function.

brian

Re: need a button remote text popup

Here's a sample.

Post's attachments

Attachment icon br_and_scroll.zip 495.61 kb, 300 downloads since 2020-09-24 

brian

14

Re: need a button remote text popup

brian.zaballa wrote:

Here's a sample.


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