SRL Archive - OSR Help

Help Getting a webpage


kazhual

2012-11-28 03:32:42

Hello,

I used GDrive to upload a file for version checker.
I found the view link of the docment. ( if i get this to work i'll tell how ).
The link is:

> Click me to view <

The output for me is:
"B1.0". on the webpage there is no HTML, JAVA or w/e stuff just "B1.0"

I cant get the output with:


program getwebpagevariable ;
{$DEFINE SMART}
{$i srl/srl.simba}

var
version, webpage : string ;
begin

cleardebug ;
webpage := 'https://doc-0o-9c-docs.googleusercontent.com/docs/securesc/ha0ro937gcuc7l7deffksulhg5h7mbp1/c7g3rc283fp9ul5g0k0meogk5phacja8/1354082400000/02543824905479969343/*/0B9c4dt86DWJSanp3c2pQUzZaR2c' ;
GetPage( webpage ) ;

OpenWebPage( webpage ) ;

Writeln( '*****' ) ;
Writeln( version ) ;
Writeln( '*****' ) ;

end.

I could not get the output.

When using XAMPP ( own server on pc, offline )
Getpage works with HTTP and HTTPS:
version := GetPage( 'http://localhost/downloads/Version.txt' ) ;
version := GetPage( 'http://localhost/downloads/Version' ) ;
version := GetPage( 'https://localhost/downloads/Version.txt' ) ;
version := GetPage( 'https://localhost/downloads/Version' ) ;

Could it be the "*" in the webpage?

Any suggestions?

kazhual

2012-11-28 03:46:12

This Link:

http://pwfgsa.bn1.livefilestore.com/y1mPKIs6zE0CLN6e_Tw4xYLZ4Zdn4Z-3R7WgxHVXPkf60fgsrvfUw1AuDMsemV6XLX3J5sVxbmtNKtjQS6GXjxCZb_g9eTY8izn/Version.txt

fails as well

Chris

2012-11-28 03:52:58

yjmepg.bn1.livefilestore.com/y1plhtTgqL8Uf3PilAQEQhxmCzMySkHMn_-uZF5i7sd7zMfWsHfELPI0vHpNujWRX_lJw414kitasJwNO80Dyvmpg/Version.txt
That does work, but your first link can't be accessed without https

kazhual

2012-11-28 03:54:45

Still the last one fails..


program getwebpagevariable ;
{$DEFINE SMART}
{$i srl/srl.simba}

var
version, version2, webpage : string ;
myclient : integer ;
begin

cleardebug ;
webpage := 'http://pwfgsa.bn1.livefilestore.com/y1mPKIs6zE0CLN6e_Tw4xYLZ4Zdn4Z-3R7WgxHVXPkf60fgsrvfUw1AuDMsemV6XLX3J5sVxbmtNKtjQS6GXjxCZb_g9eTY8izn/Version.txt' ;
myclient := InitializeHTTPClient( True, False ) ;
version := GetHTTPPage( myclient, webpage ) ;
version2 := getpage( webpage ) ;

// OpenWebPage( webpage ) ;


Writeln( '*****' ) ;
Writeln( version ) ;
Writeln( version2 ) ;
Writeln( '*****' ) ;

end.

modified: InitializeHTTPClient, with any solution ( true true, true false …. etc )

kazhual

2012-11-28 04:25:39

Modified the adress:
http://pwfgsa.bn1.livefilestore.com/y1mPKIs6zE0CLN6e_Tw4xYLZ4Zdn4Z-3R7WgxHVXPkf60fgsrvfUw1AuDMsemV6XLX3J5sVxbmtNKtjQS6GXjxCZb_g9eTY8izn/Version.txt

Shatterhand

2012-12-19 10:07:47

Just try html instead of txt.