как сравнить 2 блока памяти7

[KORN]

доброе время суток. у меня такая проблема мучаюсь уже 2й день. имеются 2 блока памяти из tmemorystream и мне надо сравнить их содержимое, как это можно осуществить7

[alexBlack]

Может я не совсем понял вопрос. Уж слишком просто получается.

type TByteArray : array [maxint] of byte;

И в цикле - приведение типов и сравнение

TByteArray(buffer1^)[i] = TByteArray(buffer2^)[i]

Это для pointer. Для других типов аналогично.

[Stilet]

А если так попробовать:

var t2,t:TMemoryStream;
.....
begin
 if t.Size=t2.Size then 
  if CompareMem(t.Memory,t2.Memory,t.Size) then // Одинаковые
end;

[KORN]

Сообщение от Stilet

А если так попробовать:

var t2,t:TMemoryStream;
.....
begin
 if t.Size=t2.Size then 
  if CompareMem(t.Memory,t2.Memory,t.Size) then // Одинаковые
end;

есть 2 одинаковых блока памяти я сам их капирую из различных файлов, допустим по 1024 байта каждый, и мне надо сравнить значения которые в них, ну не открывать же в блокноте и не сравнивать по симвалам.. это ж бред... а у тя судя по коду сравнивается именно размер...

[Serge_Bliznykov]

не понял, а чем вариант решения от Stilet не подходит?!

ну, можно в лоб - установить оба потока на ноль, читать через Read в буфер и сравнивать элементы буфера
что вроде такого:

    MemoryStream1.Seek(0, soFromBeginning);
    MemoryStream2.Seek(0, soFromBeginning);
    repeat
      Len1 := MemoryStream1.Read(Buffer1, SizeOf(Buffer1));
      Len2 := MemoryStream2.Read(Buffer2, SizeOf(Buffer2));
      if (Len1>0) and (Len2>0) then begin
         for i:=1 to SizeOf(Buffer) do
           if Buffer1[i]<>Buffer2[i] Then begin
             <потоки различны!>
             Exit
           end; 
      end;
    until (Len1 <= 0) or (Len2<=0);

писал прямо в форуме - если что - исправляйте - код я привёл просто для того, чтобы проиллюстрировать свою мысль...

[Stilet]

Поясню для тех кто читает, CompareMem сравнивает не размер а содержимое.