VPF::Странный баг с HEX в D2010 - Форум программистов

mariomario

Дата 10.4.2019, 13:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 16.2.2019

Репутация: нет
Всего: нет

Всем привет. Уже часа 3 копаюсь и не могу понять в чем глюк.
Есть проект. Получаю фото из веб и отображаю на форме.
Делаю проверку какой тип изображения получил перед отображением.

Код


procedure TForm1.ImageFromStream(Stream: TStream; Image: TImage);
var
FirstBytes: AnsiString;
Graphic: TGraphic;
begin
  Graphic         := nil;
  Stream.Position := 0;
  SetLength(FirstBytes, 8);
  Stream.Read(FirstBytes[1], 8);
  if Copy(FirstBytes, 1, 2) = 'BM' then
  begin
    Graphic := TBitmap.Create;
  end else
  if FirstBytes = #137'PNG'#13#10#26#10 then
  begin
    Graphic := TPngImage.Create;
  end else
  if Copy(FirstBytes, 1, 3) =  'GIF' then
  begin
    Graphic := TGIFImage.Create;
  end else
  if Copy(FirstBytes, 1, 2) = #$FF#$D8 then
  begin
    Graphic := TJPEGImage.Create;
  end;
  // и так далее, далее уже не важно

Код рабочий. Но если я сделаю Shift + F9 (Билд проекта), то начинаются глюки, а именно: значение #$FF#$D8 перестает восприниматься правильно и в итоге Graphic так и остается nil.
Решил проверить. Делаю Shift + F9, запускаю:

Код


//ansis: AnsiString;
//ac1, ac2: ansichar;
//FirstBytes = #$FF#$D8#$FF#$E0#$00#$10'JF';
  ansis := AnsiString(#$FF#$D8); // 'yO'
  ac1   := AnsiChar(#$FF); // 'y'
  ac2   := AnsiChar(#$D8); // 'O'
  ansis := ac1 + ac2; // 'yO'
  ansis := AnsiString(#250#251#252#253#254#255); // 'uuuy?y'
  ansis := AnsiString(#48#49#50#51#52#53#54#55#56#57#58); // '0123456789:'

Делаю компиляцию F9(и все норм работает):

Код


//ansis: AnsiString;
//ac1, ac2: ansichar;
//FirstBytes = #$FF#$D8#$FF#$E0#$00#$10'JF'; 
  ansis := AnsiString(#$FF#$D8); // = 'яШ'
  ac1   := AnsiChar(#$FF); // = 'я'
  ac2   := AnsiChar(#$D8); // = 'Ш'
  ansis := ac1 + ac2; // = 'яШ'
  ansis := AnsiString(#250#251#252#253#254#255); // 'ъыьэюя'
  ansis := AnsiString(#48#49#50#51#52#53#54#55#56#57#58); // '0123456789:'

WTF? Что-то с кодировкой?
upd: заметил, что если подобные конструкции а разных юнитах используются, то чтоб и там работало, их тоже нужно компилить заного

upd2: в общем, чтоб не париться, нужно использовать коды от 0 до 127, т.е. #00...#7F

Это сообщение отредактировал(а) mariomario - 10.4.2019, 19:13

kami

Дата 17.4.2019, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Если в D2010 есть TEncoding, то можно так:

Код


ansis:=TEncoding.ANSI.GetString([$FF,$D8]);

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »