델파이 복사 MemoryStream을

Question

안녕하세요 내가이 포장 된 기록했습니다 :

Procedure AddToRec(ATargetUser:String); 
var 
MyRecord: PMyRecord; 
Strm:TMemoryStream; 
Size: Integer; 
begin 
Strm:=TMemoryStream.Create; 
try 
Strm.LoadFromFile('myFile.dat'); 
Strm.position:=0; 
Size:=Strm.size; 
GetMem(MyRecord,Size); 
ZeroMemory(MyRecord,Size); 
MyRecord.BufSize := Size; 
StrCopy(MyRecord.TargetUser,PChar(ATargetUser)); 

// here how could i copy the Strm into the StreamHolder ? 

//SendMyBuffer(MyRecord,Size); 

finally 
Strm.free; 
end; 
end; 

:

type 
TMyRecord = packed record 
    BufSize: Word; 
    TargetUser:array[0..80] of char; 
    StreamHolder: Byte; 
    end; 
    PMyRecord = ^TMyRecord; 

가 // 난 내 아래 절차를 참조하십시오 StreamHolder 에 MemoryStream을 저장하고 싶습니다를

그래서 Strm을 StreamHolder에 복사 할 수 있습니까?

많은 감사는

Answer 1

당신은 @MyRecord.StreamHolder에 전체 스트림을 복사 할 것으로 보인다. 이런 그렇게 : 당신은 또한 당신의 GetMem 충분한 메모리를 할당 변경해야합니다

Strm.ReadBuffer(MyRecord.StreamHolder, Size); 

.

GetMem(MyRecord, Size + SizeOf(MyRecord^) - SizeOf(MyRecord.StreamHolder)); 

아니면 더 우아 :

GetMem(MyRecord, Size + Integer(@PMyRecord(nil)^.StreamHolder)); 

이 StreamHolder 전에 나타나는 기록의 그 부분을 고려하지 않는 코드를 의미로

.

Answer 2

StreamHolder: tMemoryStream; 

로

StreamHolder: Byte; 

을 잡고

하는 절차를 변경하지 왜

var 
    MyRecord: PMyRecord; 
begin 
    GetMem(MyRecord,SizeOf(pMyRecord)); 
    myRecord.StreamHolder := TMemoryStream.Create; 
    try 
    myRecord.StreamHolder.LoadFromFile('myFile.dat'); 
    //Strm.position:=0; 
    //Size:=Strm.size; 
    //ZeroMemory(MyRecord,Size); 
    //MyRecord.BufSize := Size; 
    StrCopy(MyRecord.TargetUser,PChar(ATargetUser)); 
    finally 
    // no free in here... free the streamholder whenever you get rid of MyRecord... 
    end ;