Написал сервис, который должен загружать файлы.
Модуль автогенерации Delphi создал для него класс с методом:
1.
function UploadDocument(const ABytes: TByteDynArray; const FileName: WideString): WideString; stdcall;
Засада там, где её не ждал - не могу прочитать файл.
Написал лабу, которая пытается скопировать файл и вообще никак не связана с SOAP.
В результате, записывается файл с какой-то ерундой.
Как можно прочитать содержимое файла в TByteDynArray ?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
procedure TForm1.Button1Click(Sender: TObject);
var
ABytes: TByteDynArray;
Stream, Stream2:TFileStream;
begin
Stream:=TFileStream.Create(Self.OpenDialog1.FileName,fmOpenRead);
SetLength(ABytes,Stream.Size);
Stream.Read(ABytes,Stream.Size);
Stream2:=TFileStream.Create(OpenDialog1.FileName+'.new',fmCreate);
Stream2.Write(ABytes,SizeOf(ABytes));
end;
