» Indigo Rose AutoPlay Media Studio

nikitorol

Цитата:

В RU справке нету этого.

Ну да.

Цитата:

Описание:
Посылает запрос к подключенной базе данных. Следует использовать при отсутствии возвращаемого итогового набора записей (операторы UPDATE, DELETE и INSERT).

Цитата:

Описание:
Функция отправляет запрос к подключенной базе данных. Весь итоговый набор данных будет возвращен полностью, в виде таблицы. Первый ряд будет содержать названия колонок, которые могут быть использованы как заголовки сетки. (Следует использовать с операторами SELECT.)

Доказательство, что вы ее не читали.

Цитата:

Доказательство, что вы ее не читали.

Странно, пошарил, но ничего подобного не нашел.
Простите, сейчас посмотрим.
Кстати, нашел. Вбил в поисковик MySQL.

Цитата:

Знаю что для SELECT используется MySQL.QueryToTable

Так чего лепите MySQL.Query?

Цитата:

Ничего не выходит...

Прочитайте справку и примеры еще раз 5.

Цитата:

Zloy_Gelud

Прочитал, но знаний мне это почти не дало...

SHARK3452 -- приведите коды открытия файлов. И как вы записываете проект на диск? С помощью AMS или через сторонюю программу. Если через стороннюю - то как проект компилируете?

Добавлено:
nikitorol
Напишите какие данные вам необходимо вытянуть из БД. Т.е. какую ячейку/-и из какой таблицы.

Zloy_Gelud
Необходимо осуществить как бы чат...
Необходимо вытянуть поле TEXT из таблицы chat
Потом, вывести его в RichText

nikitorol
Данные будут выводится в ListBox. Для RichText - переделаешь сам.

Код: if (MySQL.Connect("localhost", "root", "password", "database") ~= 0) then
Dialog.Message("Error", "Connection failed: (" .. MySQL.GetError() .. ")", MB_OK, MB_ICONSTOP);
Application.ExitScript();
end

local tQuery = MySQL.QueryToTable("SELECT TEXT FROM chat");
if (Application.GetLastError() ~= 0) then
Dialog.Message("Error", "Query failed: (" .. MySQL.GetError() .. ")", MB_OK, MB_ICONSTOP);
Application.ExitScript();
end

MySQL.Close();

ListBox.SetUpdate("ListBox1", false);

for i, tRow in pairs(tQuery) do
for j, sCellText in pairs(tRow) do
ListBox.AddItem("ListBox1", sCellText, "");
end
end
ListBox.SetUpdate("ListBox1", true);

Zloy_Gelud
Спасибо огромнейшие тебе, о великий:D

Добавлено:
Zloy_Gelud
Кстати, опиши пожалуйста что тут творится, и что происходит?


Цитата:

for i, tRow in pairs(tQuery) do
for j, sCellText in pairs(tRow) do
ListBox.AddItem("ListBox1", sCellText, "");
end
end

nikitorol

Цитата:

Кстати, опиши пожалуйста что тут творится, и что происходи

Код: -- tQuery - двумерный массив, в котором:
-- i - номер строки
-- tRow - одномерный масиив, в котором:
-- j - номер колонки,
-- sCellText - текст ячейки
for i, tRow in pairs(tQuery) do --
for j, sCellText in pairs(tRow) do
ListBox.AddItem("ListBox1", i.."x"..j..": "..sCellText, "");
end
end

Zloy_Gelud
Спасибо за разъяснение.

Никак не могу найти сообщение, в котором дали ссылку на 600 скинов для AMS.
Помогите найти пожалуйста.

[q][/q]
извините, не программист. понятия не имею где посмотреть коды открытия файлов. если не сложно - подскажите. а диск пишу в самой AMS/

SHARK3452 -- ну а каким тогда образом вы открываете эти файлы в оболочке?

[q][/q]
я открываю эти файлы и в той папке откуда в проект добавлял, и в папке самого проекта, и в предпросмотре в программе. везде они открываются а вот на диске нет

SHARK3452 -- ох. Я спрашиваю каким образом вы в проекте сделали открытия этих файлов.

[q][/q]
новая метка, быстрое действие - опен документ

SHARK3452 -- нечего пользоваться быстрыми действиями.
Попробуйте так:
1. В Быстрых действиях выберите "None"
2. Во вкладке Скрипт напишите:

Код: Shell.Execute(_SourceFolder.."\\AutoPlay\\Docs\\File.xlsx", "open", "", "", SW_SHOWNORMAL, false);

[q][/q]
переименовал документы(были кирилицей, а вдруг...) стали открываться, по поводу быстрого действия - в проекте 16 доков, все на быстром действии и только два после записи не открывались. но спасибо за совет и уделенное время.

Цитата:

Никак не могу найти сообщение, в котором дали ссылку на 600 скинов для AMS

Ловите! http://yadi.sk/d/XEKRvoRN3AnFT

Ребята, всем привет!

Поделитесь пожалуйста какими нибудь современным технологичными шаблонами (по сути нужно симпатичное меню для запуска 3 видео-файлов с диска + кнопка с информацией о кампании)

Стандартные шаблоны совсем не гуд

Выручайте!

неужели никто не поможет...

Ashap_1974
Благодарю!

http://www.skinbase.org/Skins/1

http://www.amsspecialist.com/viewforum.php?f=17

Можно как-нибудь запретить сохранение состояния объектов? Я имею в виду это: На одной странице написать что-нибудь в Input, перейти на другую и потом снова на первую, то текст в Input'е сохранится. Мне это мешает.

[more] Знатоки, выручайте

Необходимо пользовать библиотеку от производителя FTDI (фтдиchip_тчка_ком). Библиотека предоставляется вместе с драйверами на производимые ими usb-устройства. Библиотека лежит в system32, но никак не хочет покориться.

Тест 1. Данный код выводит код ошибки 2400 "Невозможно загрузить библиотеку".


Код:
-- try pure AMS
local r = DLL.CallFunction("ft2xx.dll", "FT_GetLibraryVersion", "", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);
local e = Application.GetLastError(); -- e = 2400 ("Failed to load the specified DLL.")
Dialog.Message("Test 1", "ver: " .. tostring(r) .. "\r\ne = " .. tostring(e));

IronEagle, нет у меня никакого предзаполнения. Специально чистый проект создал и проверил ещё раз. И мой проект сделать одностраничным не получится.

KerberX, странно, я тоже пустой проект создал: две страницы Page1 и Page2, на первой странице объекты Input1 и xButton1, на второй - xButton2. В событии "On Click" кнопки xButton1 на странице Page1: Page.Jump("Page2");, кнопки xButton2 на странице Page2: Page.Jump("Page1");. Пишу на первой странице в Input ручками, нажимаю xButton1, потом возвращаюсь и текст на месте. Чудеса.

Добавлено:
Господа, ни у кого не завалялся случайно плагин Proxy Object DLL от reteset? а то "amsplugins.com Is Closed"

[more] Все же надеюсь на помощь с предыдущим вопросом http://forum.ru-board.com/topic.cgi?forum=5&topic=39341&start=1556&limit=1&m=1#1, а пока попробую задать еще один:

На VB6 создал простенький ActiveX Control, скомпилировал и пытаюс подключить к проекту AMS. В ocx-файле контрола код:


Код:
Public Property Get HelloWorld() As String
HelloWorld = "Hello World!"
MsgBox (HelloWorld)
End Property

Доброго времени суток!
У меня возник вопрос: Как из строки удалить ненужный текст?
К примеру, я имею Input в который ввели текст - (Привет мир)
Мне необходимо удалить слово (мир), и вывести слово (Привет).
Как это можно осуществить?

nikitorol
См. String.Replace

IronEagle

Цитата:

а то "amsplugins.com Is Closed"

Неправда. Можете скачать любой бесаплатный плагин с сайта, но вроде нужно сначала купить один платный плагин на сумму не менее $25.

Цитата:

Уважаемые администраторы

Сделайте чудо - пусть мои посты не будут в виде "Подробнее...". Заранее благодарен..

Не сделают они это. Это ограничение форума для новичков.

Цитата:

В чем может быть проблема?

Я конечно не спец VB6, но может не стоит давать функции и переменной одинаковое название HelloWorld? Попробуйте явно наисать текст сообщения, например, MsgBox ("Текст")