Главная страница
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.049 c
2-1160629003
Unknone
2006-10-12 08:56
2006.10.29
Компонент OpenDialog


2-1160994548
Alex_C
2006-10-16 14:29
2006.10.29
Как зная координаты каретки в Memo получить индекс ?


2-1160338383
XeRoN
2006-10-09 00:13
2006.10.29
Работа с чужим приложением


6-1149253097
kreyl
2006-06-02 16:58
2006.10.29
Как запустить функцию на сервере и получить ее результат?


2-1160997990
Jimmy
2006-10-16 15:26
2006.10.29
Работа с Sys Tray.