-
MY PROJECTS
DELPHI WORLD
C# WORLD
MySQL WORLD
JS WORLD
PHP World
IIS World
-
Recent Posts
- Delphi. Первый опыт работы с библиотекой Marshmallow в реальном проекте
- Delphi.RobustServer.Работа с общими ресурсами
- Delphi.RobustServer. Работа с длинными операциями
- Delphi.Spring4D.Marshmallow
- Delphi.IsSingleInstance
- Delphi. Работа с вариантными массивами
- Delphi.Linq или sugar Spring4D
- DelphiRobustServer. Autocollection of API. WindowsService or Desktop modes.
- Delphi.Rtti.Overloaded methods
- Algos.Hackerrank.Birthday Cake Candles
- Algos.Hackerrank.Mini – Max Summ
- Delphi.RobustServer.Упрощаем routing запросов. Базовый класс TRP
- Delphi.RobustServer.Обработка POST запросов для основных MIME
- Delphi.RobustServer. Логгер на GUI
- Delphi.RobustServer.Открытие соединения с БД.Простой случай.
- Delphi.RobustServer. Загрузка файлов на сервер
- Delphi.RobustServer. Совершенствуем CommandGet и тестовый класс TRPUsers
- Delphi.RobustServer.Обработка ошибок, интерфейсный класс TResponses и измерение оперативной памяти
- Delphi. Измерение оперативной памяти
- Delphi.RobustServer – первые шаги
Categories
- Aptana
- Azure
- C#
- DataSnap
- DBExpress
- Delphi
- Delphi и сети
- Delphi. Язык программирования
- ExtJS
- FastReport
- FireDAC
- FireMonkey
- GIT
- ICS
- IDE
- IIS
- Indy
- InnoSetup
- javascript
- jQuery
- JSON
- LiveBindings
- MSHTML
- MySQL
- PHP
- REST
- Ribbons
- SMS
- SQL инструкции
- SVN
- TRichView
- UniGui
- VirtualTreeView
- WebBroker
- WinAPI
- Windows
- Алгоритмы
- Без рубрики
- Деревья
- Ищу ответ
- Компонентостроение
- Мои компоненты
- Начальный уровень
- Обработка исключений
- Парсинг
- Потоки(Threads)
- Регулярные выражения
- Тестирование приложений
Category Archives: Ищу ответ
Ищу ответ. Delphi. DataSnap. Провайдеры. Загрузка картинки…
Проблема – не могу передать изображение с клиента на сервер DataSnap и сохранить в СУБД MySQL… Компоненты На сервере… …в методах сервера… На клиенте… …на главной форме клиента… Коды и способы загрузки 1 “Прямой” способ… На клиенте…
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
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 on Ищу ответ. Delphi. DataSnap. Провайдеры. Загрузка картинки…