Delphi

Почему не работает в Delphi 2009

Добрый вечер.

Данный код сохраняет картинку с web-сайта в файл.
Он прекрасно работает в D7, но никак не хочет работать в Delphi2009.
Объясните почему.



Код Delphi1 2 3 4 5 6 7 8 9 10 11 var F: TFileStream; S: string;   procedure TForm1.Button1Click(Sender: TObject); begin F:=TFileStream.Create(c:banner.jpg,fmCreate); S:=HT.Get(http://www.google.ru/intl/en_com/images/logo_plain.png); F.Write(Pointer(S)^, Length(S)); F.Free; end;

а что пишет?

Ничего не пишет.
Просто картинку не сохраняет.
А в Д7 - как по маслу.
В Д2009 какая-то заморочка с Юникодом.

Юзай AnsiString.

Код Pascal1 S: AnsiString;

Цитата:
Сообщение от proplayer
Юзай AnsiString.

Код Pascal1 S: AnsiString;

Уже пробывал. Не работает.

F.Write(S[1], Length(S)*SizeOf(Char));

Цитата:
Сообщение от Shaggy
F.Write(S[1], Length(S)*SizeOf(Char));
Картинка не сохраняется.

Блин такая же фигня с 2009 -м, это ещё цветочки, что нибудь посерьезнее делаешь, ваще пзц компилирует , но функция не выполняется. Я на хер это 2009 -е дерьмо снес и D7 установил.

Да я им пользуюсь только из-за мультиязычности. Если бы не это, ни за что не связался бы с Д2009.

а так?

Код Pascal1 2 3 4 5 6 7 8 9 Var   Stream:TStream; begin   Stream:=TFileStream.Create(D:Test.png,fmcreate);   Try     ht.Get(http://www.google.ru/intl/en_com/images/logo_plain.png,Stream);   Finally     Stream.Free;   End;
Добрый вечер.

Данный код сохраняет картинку с web-сайта в файл.
Он прекрасно работает в D7, но никак не хочет работать в Delphi2009.
Объясните почему.



Код Delphi1 2 3 4 5 6 7 8 9 10 11 var F: TFileStream; S: string;   procedure TForm1.Button1Click(Sender: TObject); begin F:=TFileStream.Create(c:banner.jpg,fmCreate); S:=HT.Get(http://www.google.ru/intl/en_com/images/logo_plain.png); F.Write(Pointer(S)^, Length(S)); F.Free; end;

Shaggy,
Спасибо большое. Наконец-то сработало.

А почему у меня ругается, что ht нет? Это что, переменная, ил надо добавить что-нибудь в uses?