Итак, в данном посте усовершенствуем алгоритм с отправкой файла(изображения) с клиента на сервер через строку. Это сделано для того, чтобы избежать потенциального обрезания строки терминирующим нулем.

Алгоритм хорошо работает для файлов до 3 мб. Файл в 6 мб. уже подвешивает систему, поэтому нужно сделать передачу по частям, это я проделаю в следующем посте.

Также, для обратной задачи — передать файл с сервера на клиент — нужно проявить немного фантазии и проделать все тоже самое, только наоборот.

Алгоритм будет таким…

-На клиенте запаковать строку в вариантный массив

-Отправить вариантный массив в качестве OleVariant на сервер

-На сервере распаковать вариантный массив в строку

-Превратить строку в файл (изображение)

-Загрузить в СУБД

Что делаем на сервере?

Пишем функцию распаковки из OleVariant в String…

function OleVariantToString(const Value: OleVariant): string;
  var ss: TStringStream;
      Size: integer;
      Data: PByteArray;
begin
  Result:='';
  if Length(Value) = 0 then Exit;
  ss:=TStringStream.Create;
  try
    Size := VarArrayHighBound (Value, 1) - VarArrayLowBound(Value, 1) + 1;
    Data := VarArrayLock(Value);
    try
      ss.Position := 0;
      ss.WriteBuffer(Data^, Size);
      ss.Position := 0;
      Result:=ss.DataString;
    finally
      VarArrayUnlock(Value);
    end;
  finally
    ss.Free;
  end;
end;

function OleVariantToString(const Value: OleVariant): string;

var ss: TStringStream;

Size: integer;

Data: PByteArray;

begin

Result:='';

if Length(Value) = 0 then Exit;

ss:=TStringStream.Create;

try

Size := VarArrayHighBound (Value, 1) - VarArrayLowBound(Value, 1) + 1;

Data := VarArrayLock(Value);

try

ss.Position := 0;

ss.WriteBuffer(Data^, Size);

ss.Position := 0;

Result:=ss.DataString;

finally

VarArrayUnlock(Value);

end;

finally

ss.Free;

end;

Распаковка + запись в СУБД

procedure TServerMethods1.DataInsert(V: Olevariant);

var s:string; ss:tstringstream;
begin

s:=OleVariantToString(V);

ss:=tstringstream.Create(s);
ss.Position:=0;



   simpledataset1.insert;
   simpledataset1.fieldbyname('Primary_key').AsInteger:=simpledataset1.RecordCount+1;
   tblobfield( simpledataset1.fieldbyname('Picture')).LoadFromStream(ss);
   simpledataset1.post;
   simpledataset1.applyUpdates(-1);

end;

procedure TServerMethods1.DataInsert(V: Olevariant);

var s:string; ss:tstringstream;

begin

s:=OleVariantToString(V);

ss:=tstringstream.Create(s);

ss.Position:=0;

simpledataset1.insert;

simpledataset1.fieldbyname('Primary_key').AsInteger:=simpledataset1.RecordCount+1;

tblobfield( simpledataset1.fieldbyname('Picture')).LoadFromStream(ss);

simpledataset1.post;

simpledataset1.applyUpdates(-1);

end;

Что делаем на клиенте?

Пишем функцию «Из строки в OleVariant»

function StringToOleVariant(const Value: string): OleVariant;
  var Data: PByteArray;
      ss: TStringStream;
begin
  Result:=null;
  if Value='' then Exit;
  ss:=TStringStream.Create(Value);
  try
    Result := VarArrayCreate ([0, ss.Size - 1], varByte);
    Data := VarArrayLock(Result);
    try
      ss.Position := 0;
      ss.ReadBuffer(Data^, ss.Size);
    finally
      VarArrayUnlock(Result);
    end;
  finally
    ss.Free;
  end;
end;

function StringToOleVariant(const Value: string): OleVariant;

var Data: PByteArray;

ss: TStringStream;

begin

Result:=null;

if Value='' then Exit;

ss:=TStringStream.Create(Value);

try

Result := VarArrayCreate ([0, ss.Size - 1], varByte);

Data := VarArrayLock(Result);

try

ss.Position := 0;

ss.ReadBuffer(Data^, ss.Size);

finally

VarArrayUnlock(Result);

end;

finally

ss.Free;

end;

Далее на кнопку «вешаем» следующий обработчик

procedure TForm3.Button4Click(Sender: TObject);

var smc:tservermethods1client; i:integer;
bmp:tbitmap;
    twic:twicimage;
   
    ss:tstringstream;
    s:string;

begin

   bmp:=tbitmap.Create;
   twic:=twicimage.Create;
  
   ss:=tstringstream.Create;

   //Загрузка картинки в память...
   opendialog1.Execute;
   twic.LoadFromFile(opendialog1.FileName);
   bmp.Assign(twic);


   bmp.SaveToStream(ss);


   smc:=tservermethods1client.Create(sqlconnection1.DBXConnection);
   s:=ss.DataString;
   smc.DataInsert(StringToOleVariant(s));

   smc.Free;

   clientdataset1.Refresh;
   bmp.Free;
   twic.Free;
   ss.Free;
   s:='';


end;

procedure TForm3.Button4Click(Sender: TObject);

var smc:tservermethods1client; i:integer;

bmp:tbitmap;

twic:twicimage;

ss:tstringstream;

s:string;

begin

bmp:=tbitmap.Create;

twic:=twicimage.Create;

ss:=tstringstream.Create;

//Загрузка картинки в память...

opendialog1.Execute;

twic.LoadFromFile(opendialog1.FileName);

bmp.Assign(twic);

bmp.SaveToStream(ss);

smc:=tservermethods1client.Create(sqlconnection1.DBXConnection);

s:=ss.DataString;

smc.DataInsert(StringToOleVariant(s));

smc.Free;

clientdataset1.Refresh;

bmp.Free;

twic.Free;

ss.Free;

s:='';

end;

digital-flame

Блог программиста

Delphi. DataSnap. Как передать файл (изображение) с клиента на сервер с помощью строки, запакованной в вариантный массив ?

Что делаем на сервере?

Что делаем на клиенте?