Скрипты поддерживают  http запросы Get и Post

Пример post запроса

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    slParam: TStringList;
    sResult: string;
begin
    slParam := TStringList.Create;
    slParam.Add('login=admin');
    slParam.Add('password=123');
    sResult := HTTPPost('http://example.com/verify.php', slParam);
    slParam.Free;
end;

Пример get запроса

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    sResult: string;
begin
    sResult := HTTPGet('http://example.com/verify.php?login=admin&password=123');
end;

PUT/DELETE не реализованы.

3,752

(2 replies, posted in General)

Hello,


Please attach your project, and describe, where you face the problem (component's name and form)

Hello.


I think it's not problem, just set up button with action "Search" and use two components DateTimePicker, one with property Fillter= >=, and second, Filter= <=



Also I see that you have ID_Table1 and ID_Table2, it's mistake, you should have just one relationship between tables.

3,754

(4 replies, posted in General)

Hello.


Please describe your question in more details.

Здравствуйте.


Посмотрите пожалуйста примеры в данном теме
http://myvisualdatabase.com/forum/viewtopic.php?id=1060

3,756

(13 replies, posted in General)

ehwagner
Yes, now function LAST_INSERT_ID don't have parameter, actually the function never had parameter, parameter just  ignored.

3,757

(22 replies, posted in General)

AD1408
Please attach your project.

3,758

(4 replies, posted in Russian)

Увы с этим не смогу разобраться, что касается шрифтов, то это реализовано все системой Windows, просто не могу что то поменять в этом.

Здравствуйте.


К сожалению SIP телефония не поддерживается.


Синхронизация возможно реализовать скриптами, если вы используете MySQL для интернет магазина.

3,760

(4 replies, posted in Russian)

Здравствуйте.


К сожалению не знаю в чем проблема.
Вы просто копируете шрифты в папку Windows\Fonts\?


Необходимо нажать правой кнопкой мыши по шрифту и выбрать пункт "Установить"

3,761

(1 replies, posted in Russian)

Здравствуйте.


К сожалению несуществует такого понятия как выравнивание текста в переменной.


Видимо речь идет об избыточных пробелах, их можно удалить так

S:= ReplaceStr(S, '  ', '');

3,762

(6 replies, posted in SQL queries)

Hello.


Example, hot to send params using method POST

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    slParam: TStringList;
    sResult: string;
begin
    slParam := TStringList.Create;
    slParam.Add('login=admin');
    slParam.Add('password=123');
    sResult := HTTPPost('http://example.com/verify.php', slParam);
    slParam.Free;

end;

3,763

(2 replies, posted in General)

Hello.


procedure Form2_buttonSave_OnClick (Sender: string; var Cancel: boolean);
begin
    if MessageDlg('Your message here.', mtConfirmation, mbYes+mbNo, 0) = mrNo then
    begin
      Cancel := True;
    end;
end;
abgroup-artur wrote:

оч нужна функция  ident_current(), планируете ее реализовать?

чем она должна отличаться от?

Form2.bSave.dbGeneralTableId

abgroup-artur
В функции Last_Insert_id есть одна неточность, указывание имя таблицы в качестве параметра игнорируется, т.о. данная функция возвращает id последней добавленной записи, при этом нет возможности узнать, в какую именно таблицу была добавлена запись.


В  последней версии программы данная фунция без параметра.

3,766

(5 replies, posted in Script)

VascoMorais wrote:

thanks! i'm a bit rusty at this, what's the right code for .text "filled" ?

procedure Form1_ComboBox1_OnChange (Sender: string);
begin
   Form1.Memo1.Lines.Text := Form1.Memo1.Lines.Text + 'Combo1 has been changed';
end;

3,767

(5 replies, posted in Russian)

beniamin91
К сожалению не могу сообразить что к чему с данным описанием.

3,768

(1 replies, posted in General)

I can delete your forum's account, I should do it? Please confirm.

3,769

(22 replies, posted in General)

AD1408
Example:

3,770

(3 replies, posted in Russian)

wertyby wrote:

Дмитрий, вопрос выше вроде бы снят. Разобрался. Но никак не могу понять насчет вывода даты в отчет, стандартными средствами.  Все время выводит время + дата. Форматирование с помощью фастрепорта не помогает. Как решить данную проблему?

Приложите пожалуйста ваш проект с описанием, где именно выходит дата и время.

3,771

(11 replies, posted in Russian)

RZ-007 wrote:

Извените а есть проект примера:
1)

выделить только какой либо один текст  Пост № 7

2) если в мемо есть такой ещё же текст, то по клику на битон "далее" в мемо покажет  его...
3) в лабере подсчитать сколько найдено повторов текста в мемо которого указали в поиске???

Сделал для вас проект с примером

3,772

(2 replies, posted in General)

Hello.


Please use MessageBox function instead MessageDlg,  example:

if IDYES = MessageBox('Message', 'Caption', MB_YESNO+MB_ICONINFORMATION) then ShowMessage('Yes');

Buttons:
MB_OK
MB_OKCANCEL
MB_ABORTRETRYIGNORE
MB_YESNOCANCEL
MB_YESNO
MB_RETRYCANCEL


Results:
IDOK
IDCANCEL
IDABORT
IDRETRY
IDIGNORE
IDYES
IDNO


Icons
MB_ICONWARNING
MB_ICONINFORMATION
MB_ICONASTERISK
MB_ICONQUESTION
MB_ICONSTOP
MB_ICONERROR



This function has beed added in the latest version 3.2

6katran6 wrote:

могу только вам на почту отправить я не хочу его светить на форме задумка очень хорошая у меня почту напишите я вам отправю

support@drive-software.com


в письмо вставьте пожалуйста ссылку на данную тему.

Приложите пожалуйста ваш проект, постараюсь помочь.

3,775

(11 replies, posted in Russian)

bemorhona-qt
Приложите пожалуйста текстовый файл с данными, т.к. необходимо знать, что используется в качестве разделителя колонок.