Category Archives: Ищу ответ

Ищу ответ. Delphi. DataSnap. Провайдеры. Загрузка картинки…

Posted on 08.09.2015 by Stanislav_Panteleev

Проблема – не могу передать изображение с клиента на сервер DataSnap и сохранить в СУБД MySQL… Компоненты На сервере… …в методах сервера… На клиенте… …на главной форме клиента… Коды и способы загрузки 1 “Прямой” способ… На клиенте…

procedure TForm2.Button1Click(Sender: TObject);
var bmp:tbitmap; twic:twicimage;
begin

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

opendialog1.Execute;
twic.LoadFromFile(opendialog1.FileName);
bmp.Assign(twic);


clientdataset1.append;
clientdataset1.FieldByName('Primary_key').AsInteger:=clientdataset1.RecordCount+1;
clientdataset1.FieldByName('Picture').Assign(bmp);
clientdataset1.Post;
clientdataset1.ApplyUpdates(0);

//clientdataset1.Refresh;
clientdataset1.Close;
clientdataset1.Open;

end;

procedure TForm2.Button1Click(Sender: TObject);

var bmp:tbitmap; twic:twicimage;

begin

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

opendialog1.Execute;

twic.LoadFromFile(opendialog1.FileName);

bmp.Assign(twic);

clientdataset1.append;

clientdataset1.FieldByName('Primary_key').AsInteger:=clientdataset1.RecordCount+1;

clientdataset1.FieldByName('Picture').Assign(bmp);

clientdataset1.Post;

clientdataset1.ApplyUpdates(0);

//clientdataset1.Refresh;

clientdataset1.Close;

clientdataset1.Open;

end;

Результат “прямого” … Continue reading →

Posted in DataSnap, Delphi, Без рубрики, Ищу ответ | Comments Off

Category Archives: Ищу ответ

Ищу ответ. Delphi. DataSnap. Провайдеры. Загрузка картинки…

MY PROJECTS

Recent Posts

Categories