[Delphi]-[ciekawostka] Bug kompilatora, IdHTTP czy moze Wina

0

Witam

Znalazlem dosc ciekawy bug aczkolwiek nie wiem czy istenieje tylko u mnie czy u innych tez.
Wiec zacznijmy. Tworzymy nowy projekt w Delphi, aplikacje VCL.
Na forme kladziemy Memo1 i Button1.
W zdarzeniu OnClick Button1 wpisujemy maly kod:

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP : TIdHTTP;
begin
  IdHTTP := TIdHTTP.create(nil);

      try
        Memo1.Lines.Text := IdHTTP.Get('http://www.google.pl');
      finally
        IdHTTP.Disconnect;
      end;
end;
  1. Kompilujemy aplikacje i uruchamiamy, klikamy przycisk - DZIALA
  2. Kopiujemy plik .exe np. do katalogu C:\TEST, uruchamiamy - DZIALA
  3. Zamykamy program, zmieniamy nazwe katalogu TEST na np. BLEBLE, uruchamiamy aplikacje - NIE DZIALA

Aby sprawic zeby zadzialala w nowym katalogu nalezy kliknac prawym przyciskiem na pliku .EXE naszego app'a, wybrac wlasciwosci i dac OK - aby zamknac okno. Uruchomic app i dziala.

Nie wiem co to za bug i z czym sie go je... Wiem natomiast ze jest bardzo dziwny.
http://cctvlabs.org/wtf.zip - zrodlo i skompilowany app

Error jaki wyskakuje:
Network is down # 10050

Ma ktos jakies rozwiazanie?
BTW: Program kompilowalem w RAD Studio Delphi 2007 Win32 i testowalem na Vista 64 Ultimate, XP 32 SP2, XP 32 SP3 - nie dziala.
Co ciekawa ten sam program skompilowany w D2007 i Vista 64 Ultimate dziala bez problemu na: Vista 32 Ultimate SP1

Jesli ktos moze potwierdzic ze w innych wersjach Delphi tez to wystepuje bede bardzo wdzieczny.

Pozdrawiam

0

Czesc,

Skompilowalem i sprawdzilem(podlug Twoich wsazkowek) na Win XP SP2 i dziala bezproblemowo.

0

juz wykluczam wszystkie systemy x86
problem dotyczy tylko x64

1 użytkowników online, w tym zalogowanych: 0, gości: 1