[lmikle]

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

Когда передаешь Pchar -> Китайские иероглифы в мемо.
если возможность почистить блок? в моем случае.

Скорее всего заморочки с Ansi vs Unicode. Если ты работаешь с AnsiString, то надо использовать соотв. PAnsiChar.

по поводу чистки блока - используй FillChar, заполняй #0

[leon2009]

Код:

function LoadFile:string;
var
MemoryFile,buffer: TMemoryStream;
begin
MemoryFile := TMemoryStream .Create;
try
MemoryFile.LoadFromFile('test.txt');
result:=inttostr(MemoryFile.Size);
finally
 MemoryFile.Free;
end;
end;

этот код передает размер файла, а как сам файл передать? вернее содержимое.

[leon2009]

DLL

Код:

function LoadFile:TMemoryStream;
var
MemoryFile: TMemoryStream;
begin
MemoryFile := TMemoryStream .Create;
try
MemoryFile.LoadFromFile('test.txt');
result:=MemoryFile;
finally
 MemoryFile.Free;
end;
end;

FORMA

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
Memory: TMemoryStream;
begin
Memory := TMemoryStream .Create;
try
Memory.LoadFromStream(LoadFile);
memo1.Lines.LoadFromStream(Memory);
finally
 Memory.Free;
end;
end;

пустое значение приходит

[lmikle]

Конечно пустое. Ты же убиваешь объект перед выходом из процедуры...

[leon2009]

DLL

Код:

function LoadFile:TMemoryStream;
var
MemoryFile: TMemoryStream;
begin
MemoryFile := TMemoryStream .Create;
try
MemoryFile.LoadFromFile('test.txt');
result:=MemoryFile;
finally
showmessage('ok');//MemoryFile.Free;
end;
end;

Forma

Код:

memo1.Lines.LoadFromStream(LoadFile);

а работает!!! с Memory то работает и нет глюков.
а ничего страшного, что MemoryFile.Free; = этого нет?
и потом куда его воткнуть? MemoryFile.Free; ????

[lmikle]

Сделай в dll дополнительный вызов, который будет уничтожать объект.

[leon2009]

да, сделал уже if size>=124kb then LoadFile('delete');
мне бы научится buffer [0..buffer-1]:array через dll