Author Topic: [TIPS] mendownload web page melalui program VFP  (Read 177 times)

0 Members and 1 Guest are viewing this topic.

Offline foxy

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 3.537
    • Foxy Land
[TIPS] mendownload web page melalui program VFP
« on: September 22, 2017, 07:15:12 PM »
Halo semua....

Jaman sekarang, semua juga dibuat jadi web-based. Semua ada web site nya. Mulai dari jualan sambel sampai jualan speed boat. Nah, kalau semua informasi ada di web, kenapa program kita (aplikasi yang kita buat dengan VFP) tidak memanfaatkannya? Cara yang paling pas sebenarnya adalah dengan menggunakan web service. Tapi di tips ini, saya akan memberikan cara yang lebih sederhana; yakni mendownload page dari internet, lalu mengolah hasilnya di VFP;

Code: [Select]
lcGetURL = "http://ifconfig.me/ip"
lcTempTxtFile = addbs(fullpath(curdir())) + sys(2015)

DECLARE LONG URLDownloadToFile IN URLMON.DLL ;
LONG, STRING, STRING, LONG, LONG


lnGetResults = URLDownloadToFile(0, lcGetURl, lcTempTxtFile, 0, 0)

IF lnGetResults # 0
MESSAGEBOX("Connection Fail",48,"My IP Address")
RETURN .F.
else

*-- Read the Web page into a variable, and then erase it.
lcQuote = FILETOSTR(lcTempTxtFile)
ERASE (lcTempTxtFile)

messagebox("IP address anda adalah: " + lcQuote, 64, "IP Address")
return .t.
endif


Karena namanya juga contoh, jadi ya tentu saja yang sederhana  :icon_biggrin:. Tapi dari sini, saya yakin Anda bisa mengembangkan ke banyak ide-ide lain.

Monggooooo...... :)


hth,

foxy
This post is provided as is. Feel free to use all the codes and information, however understand that I don't have any obligations to fix any bug(s) or follow up this subject.