Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.29;
Скачать: CL | DM;

Вниз

Почему разные crc32?   Найти похожие ветки 

 
Тфьу   (2006-06-01 00:09) [0]

В ПХП загружаю картинку и контрольную сумму:
<?php
 if (!$imgname)
 {
  exit;
 }
 header("Content-type: image/jpeg");

 $file_string = file_get_contents($imgname);
 $crc = crc32($file_string);
 echo sprintf("%010u", $crc);

 $im = @imagecreatefromjpeg($imgname);
 if ($im) {
   imagejpeg($im);
 }
?>

В Делфи проверяю контрольную сумму:
 MS:=TMemoryStream.Create;
 jpg:=TJPEGImage.Create;
 try
   IdHTTP.Get("http://myserver/loadimage.php?&imgname=test.jpg",MS);
   if MS.Size>10 then
   begin
     MS.Position:=0;
     PC:=AllocMem(10);
     MS.Read(PC^,10);
     Label1.Caption:=PC;
     FreeMem(PC);
     MS.Position:=10;
     jpg.LoadFromStream(MS);
     Image.Picture.Assign(jpg);
     MS.Position:=10;
     crc:=SZCRC32FullStream(MS);
     Label2.Caption:=IntToStr(crc);
   end;
 finally
   MS.Free;
   jpg.Free;
 end;

crc32 в Делфи считал разными предложенными в интернете способами. Получается одно и тоже число, которое не совпадает с числом php. Что неверно?


 
Тфьу   (2006-06-01 00:24) [1]

Похоже, нашел в чем дело. Помогите разобраться со Стрмами - файл занимает 398343 байта, размер стрима 68724. А где остальное? Примем, картинка грузится нормально...


 
Тфьу   (2006-06-01 00:32) [2]

Сорри. Вопрос снимаю.
Вот эта падла:
$im = @imagecreatefromjpeg($imgname);
if ($im) {
  imagejpeg($im);
}
Режет картинку. Пойду искать как решить...
Может поможет кто? Надо передать на клиента файл...


 
Тфьу   (2006-06-01 00:40) [3]

Я дебил. Надо пойти спать. Вот как надо было:
<?php
 if (!$imgname)
 {
  exit;
 }
 $file_string = file_get_contents($imgname);
 $crc = crc32($file_string);
 echo sprintf("%010u", $crc);
 echo $file_string;
?>



Страницы: 1 вся ветка

Текущий архив: 2006.10.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
1-1158435217
TStas
2006-09-16 23:33
2006.10.29
Можно ли как-то программно записать файлы на CD?


2-1160651497
Kolan
2006-10-12 15:11
2006.10.29
Как прочетать весь файл использую TFileStream


4-1147534057
Sicilla
2006-05-13 19:27
2006.10.29
Строка в системном меню


2-1160403362
Volfram
2006-10-09 18:16
2006.10.29
TSQLQuery


15-1159851811
eRoR_rrr
2006-10-03 09:03
2006.10.29
Как узнать какой файл используеться приложением