-
MY PROJECTS
-
Recent Posts
- Java. DeepCloneExample
- Abstract Classes vs Interfaces
- SQL. NULL and logical operators
- Java. Simple Gradle Application
- Leetcode.Solved.Missing-number
- Leetcode.Solved.Intersection-of-two-arrays
- DesignPatterns.AbstractFactory
- DesignPatterns.Factory
- Leetcode.Solved.ContainsDublicate
- Leetcode.Solved.Majority-element
- Leetcode.Solved.MergeSortedArray
- Leetcode.Solved.PlusOne
- Leetcode.Solved.SingleNumber
- Leetcode.Solved.Number-of-good-pairs
- Leetcode.Solved.Two-sum
- Leetcode.Solved.Repeated-substring-pattern
- Leetcode.Solved.Concatenation-of-array
- Leetcode.Solved. Search-insert-position
- WepPackDevServer
- Git. Rev-Parse. Getting latest commit
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
- 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. Провайдеры. Загрузка картинки…