Konu: Tuhaf bir hata...
Aşağıdaki gibi bir kodum var.
? GetInternetFile("http://www.benimsitem.com/VERSIYON.TXT")
FUNCTION GetInternetFile && Author: Cetin BASOZ
LPARAMETERS tcUrlFile
IF PCOUNT() <> 1
MESSAGEBOX("Internetten dosya alma hatası! Bu hata İnternet bağlantısının olmamasından yada program için gerekli olan bir dosyanın, URL de bulunamamasından kaynaklanıyor!","Internet bağlantı uyarısı")
RETURN ""
ENDIF
objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open("GET", m.tcUrlFile,.F.)
objHTTP.Send()
RETURN (objHTTP.ResponseText)
ENDFUNC
Kod sorunsuz çalışıyor ( gibi görünüyor )
Ancak şöyle bir sıkıntı var.
Programı VFP içindeki command window dan çalıştırdığımda yada EXE içerisinden çalıştırdığımda şu sonucu alıyorum :
BETA 0.60 ( Bu değer bir önceki versiyona ait - Sitede önceden bu değer vardı )
Ama IE penceresinde ( Ver 9 ) yada Google Chrome da url yi (http://www.benimsitem.com/VERSIYON.TXT) yazdığımda ise aşağıdaki sonuç geliyor :
BETA 0.40.1 ( Bu değer son hali, sitede bu değer var. )
Kod yazımı tamamen aynı. Yani görünürde her şey normal! Ama sonuç kesinlikle hatalı.
Programın EXE si içindeki sonuç ( siteden aldığım txt dosyası ); sitedeki sonuçla bir şekilde eşleşmiyor ( Aslında dosyanın kendisi ). Dolayısı ile her defasında program yeni sürümü indirip yeniden başlıyor, ama o zaman yine başa dönüyor ( yani sonuçlar tekrardan eşleşmiyor ). Bir çeşit sonsuz döngü gibi.
Sorunun çözümüne ait bir fikri olan var mı?
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü