Category Archives: Delphi

Delphi. idHTTP.Get и русские символы

Posted on 09.01.2017 by Stanislav_Panteleev

Мне нужно было на свой собственный сервер отправлять запрос на получение картинки, например по адресу

http://localhost:40000/public/files/1/2017/1/9/Русский{EA1B9B79-AA95-424D-8AD2-AAE5BA023810}.png

1	http://localhost:40000/public/files/1/2017/1/9/Русский{EA1B9B79-AA95-424D-8AD2-AAE5BA023810}.png

делал это через idHTTP.Get, но все русские символы либо обрезались либо уходили в виде ????????, уже сталкивался с этой проблемой, поэтому решил просто использовать … Continue reading →

Posted in Delphi | Comments Off

Delphi. DBGrid. Как пробежаться и собрать значения определенного поля выделенных записей?

Posted on 07.01.2017 by Stanislav_Panteleev

DBGrid включаем в режим multiSelect. На примере сбора поля ID из базы данных

procedure TVisualFrame_HTTP.StatusBarClick(Sender: TObject);
var 
  idList: TStringList;
  i: integer;
  s: string;
begin
  idList := TStringList.Create;
  try
    if DBGrid.SelectedRows.Count > 0 then 
      with DBGrid.DataSource.DataSet do 
        for i := 0 to DBGrid.SelectedRows.Count-1 do 
          begin 
            GotoBookmark(pointer(DBGrid.SelectedRows.Items[i])); 
            idList.Add(FieldByName('id').AsInteger.ToString()); 
          end;
  
  for i := 0 to idList.Count-1 do 
    s := s + IDList[i] + #13#10;
  ShowMessage(s);
  finally
    IDList.Free;
  end; 
end;

procedure TVisualFrame_HTTP.StatusBarClick(Sender: TObject);

var

idList: TStringList;

i: integer;

s: string;

begin

idList := TStringList.Create;

try

if DBGrid.SelectedRows.Count > 0 then

with DBGrid.DataSource.DataSet do

for i := 0 to DBGrid.SelectedRows.Count-1 do

begin

GotoBookmark(pointer(DBGrid.SelectedRows.Items[i]));

idList.Add(FieldByName('id').AsInteger.ToString());

end;

for i := 0 to idList.Count-1 do

s := s + IDList[i] + #13#10;

ShowMessage(s);

finally

IDList.Free;

end;

Posted in Delphi | Comments Off

Delphi. FireDAC. Проверка на NULL и запись NULL значений в базу данных

Posted on 05.01.2017 by Stanislav_Panteleev

Проверка на NULL

with qSomeQuery do begin

if FieldByName('someField').IsNull then
//do something

end;

with qSomeQuery do begin

if FieldByName('someField').IsNull then

//do something

end;

Запись NULL значений, согласно инструкции

  // setting param to null

...
qSomeQuery.SQL.Text:=
'INSERT INTO DATABASE.TABLE (`someParam`) values (:someParam)';
...

//To set the parameter value to Null, specify the parameter data type, then call the Clear method:

with qSomeQuery do begin

         with ParamByName('someParam') do begin
         DataType:=ftInteger;
         Clear();
         Bound:=true;
         end;
ExecSQL;
end;

// setting param to null

...

qSomeQuery.SQL.Text:=

'INSERT INTO DATABASE.TABLE (`someParam`) values (:someParam)';

...

//To set the parameter value to Null, specify the parameter data type, then call the Clear method:

with qSomeQuery do begin

with ParamByName('someParam') do begin

DataType:=ftInteger;

Clear();

Bound:=true;

end;

ExecSQL;

end;

Пример из проекта…

SET foreign_key_checks = 0;


UPDATE `galionsms_db`.`clients` SET `partners_id`=:partners_id WHERE `id`=:id;

SET foreign_key_checks = 1;

SET foreign_key_checks = 0;

UPDATE `galionsms_db`.`clients` SET `partners_id`=:partners_id WHERE `id`=:id;

SET foreign_key_checks = 1;

 with qUpdatePartners_idInClients do begin
 Connection:=DBConnection.FDConnection;

         with ParamByName('partners_id') do begin
         DataType:=ftInteger;
         Clear();
         Bound:=true;
         end;

         Params.ParamValues['id']:=ClientsOfPartner[i];

         ExecSQL;

 end;

with qUpdatePartners_idInClients do begin

Connection:=DBConnection.FDConnection;

with ParamByName('partners_id') do begin

DataType:=ftInteger;

Clear();

Bound:=true;

end;

Params.ParamValues['id']:=ClientsOfPartner[i];

ExecSQL;

end;

Posted in Delphi, FireDAC | Comments Off

Delphi. MySQL. Ошибка Type mismatch for field ‘name’, expecting: String actual: WideString

Posted on 26.12.2016 by Stanislav_Panteleev

Пока не понял природу этой ошибки, но решил зафиксировать, мало ли кому понадобится.

First chance exception at $7470A832. Exception class EDatabaseError with message 
'FDTable: Type mismatch for field 'name', expecting: String actual: WideString'

1 2	First chance exception at $7470A832. Exception class EDatabaseError with message 'FDTable: Type mismatch for field 'name', expecting: String actual: WideString'

Такая ошибка появилась у меня в результате работы с базой MySQL с кодировкой UTF8 и FDConnection, также с кодировкой UTF8, но передаваемым не напрямую, а через … Continue reading →

Posted in Delphi | Comments Off

Delphi. UniGUI. Делаем витрину (showcase) 2 часть

Posted on 19.12.2016 by Stanislav_Panteleev

В прошлом посте мы сделали подготовочку. Структуру базы данных, определили основные сущности программы, создали под них таблицы в базе и модули в прекрасной IDE Delphi. В данном посте добавим функцию добавления товара, выделения товара, удаления товара, а также наладим листание … Continue reading →

Posted in Delphi, Indy, UniGui, Без рубрики | Comments Off

Delphi. Uploading to Keep2Share. Successful attempt

Posted on 18.12.2016 by Stanislav_Panteleev

А теперь удачная попытка. Суть в том, что мы сначала отправляем файлы на VPS, далее, уже на Keep2Share через PHP скрипт. Сам скрипт отправки файла с одного сервера на другой достаточно прост

<?php
include "Keep2ShareAPI.php";

$api = new Keep2ShareAPI();
$api->username='panteleevstas@gmail.com';
$api->password='SLwA63';

$filepath=$_REQUEST['filepath'];
var_dump($api->uploadFile($filepath));


/*
object(stdClass)#2 (3) {
  ["user_file_id"]=>
  string(13) "5238354a724c3"
  ["status"]=>
  string(7) "success"
  ["status_code"]=>
  int(200)
}
*/
?>

<?php

include "Keep2ShareAPI.php";

$api = new Keep2ShareAPI();

$api->username='panteleevstas@gmail.com';

$api->password='SLwA63';

$filepath=$_REQUEST['filepath'];

var_dump($api->uploadFile($filepath));

object(stdClass)#2 (3) {

["user_file_id"]=>

string(13) "5238354a724c3"

["status"]=>

string(7) "success"

["status_code"]=>

int(200)

}

Он выдает некоторую информацию, из которой нам … Continue reading →

Posted in Delphi, Indy | Comments Off

Delphi. Uploading to Keep2Share. Half Successfull Atempt…

Posted on 18.12.2016 by Stanislav_Panteleev

Поступил ко мне небольшой заказ на автоматизацию заливки файлов на файлообменник Keep2Share.cc Всего было у меня 2 попытки делания данного проекта. Сначала опишу неудачную попытку, а в другом посте удачную. Задача стояла таким образом, чтобы сделать заливку напрямую из Delphi … Continue reading →

Posted in Delphi, Indy, Без рубрики | Comments Off

Delphi. Indy. Как отправить Get запрос, принять и обработать его на idHTTPServer?

Posted on 10.12.2016 by Stanislav_Panteleev

Уже была подобная статья про отправку запросов с параметрами методом POST, а также был подобный пост, который касался отправки файлов методом POST и был на порядок сложнее того, что я напишу сейчас. Данные во второй статье отправляются в кодированном виде и мы делали … Continue reading →

Posted in Delphi, Indy, UniGui | Comments Off

Delphi. UniGUI. Application Data Module and Free DataModule

Posted on 09.12.2016 by Stanislav_Panteleev

Небольшая заметка! При создании дата модулей в UniGUI у нас есть 2 варианта – Application Data Module and Free Data Module В чем разница? Ответ на этот вопрос я получил на форуме UniGUI. Процитирую его здесь. Application Data Module’s life time … Continue reading →

Posted in Delphi, UniGui | Comments Off

Delphi. Рекурсивный обход каталога файлов Windows при помощи SYSTEM.IOUTILS

Posted on 08.12.2016 by Stanislav_Panteleev

Задача тривиальная, но всё же. Зачастую обходы делают при помощи SearchRecord, но стало интересным сделать это при помощи модуля System.IOUtils Получилось так… Каталоги файлов и папок очень похожи по структуре на дерево или граф. Соответственно можно применить один из методов … Continue reading →

Posted in Delphi | Comments Off

Category Archives: Delphi

Delphi. idHTTP.Get и русские символы

Delphi. DBGrid. Как пробежаться и собрать значения определенного поля выделенных записей?

Delphi. FireDAC. Проверка на NULL и запись NULL значений в базу данных

Delphi. MySQL. Ошибка Type mismatch for field ‘name’, expecting: String actual: WideString

Delphi. UniGUI. Делаем витрину (showcase) 2 часть

Delphi. Uploading to Keep2Share. Successful attempt

Delphi. Uploading to Keep2Share. Half Successfull Atempt…

Delphi. Indy. Как отправить Get запрос, принять и обработать его на idHTTPServer?

Delphi. UniGUI. Application Data Module and Free DataModule

Delphi. Рекурсивный обход каталога файлов Windows при помощи SYSTEM.IOUTILS

MY PROJECTS

Recent Posts

Categories