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;
- Kompilujemy aplikacje i uruchamiamy, klikamy przycisk - DZIALA
- Kopiujemy plik .exe np. do katalogu C:\TEST, uruchamiamy - DZIALA
- 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