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ı?