binary data를 읽어서 p1(pChar)에 넣어야 합니다.
어떻게 하면 p1에 넣을 수 있을까요????
비교해 보기위해 file1.dat 와 file2.dat를 만들어
비교하여 보았더니 파일 첫라인만 틀리더군요.TT
틀린 이유가 무엇인지요???
var
p1 : PChar;
p1Len: Integer;
ms1.ms2 : TMemoryStream;
begin
try
ms1 := TMemoryStream.Create;
ms1.LoadFromStream(binary data임);
ms1.SaveToFile('file1.dat');
p1Len := ms1.size;
p1 := ms1.Memory; <-----이놈이 의심스럽습니다만...내공부족으로...
ms1.Free;
except
end;
try
ms2 := TMemoryStream.Create;
ms2.write(p1^,p1Len);
ms2.SaveToFile('file2.dat');
ms2.Free;
except
end;
end;