Вопрос № 62476: Есть БД FireBird. Необходимо записать в поле BLOB файл размером более 1гБ. Решение в лоб не проходит:
QuerySaveRgg.ParamByName('RGG').LoadFromFile(
RggCheckList.SelectedItem , ftBlob );
- выдает сообщение о нехватки памяти. Если файл не...Вопрос № 62479: Здравствуйте!
Нужно с помощью собощений Windows общаться двум программам. Кажется это делается через SendMessage, читал как-то статью. Но уже ничего не помню и как это делется на Дельфи?
Нужен именно этот способ. Намекните.
Заранее спасиб...Вопрос № 62523: Здравствуйте!
Подскажите, где можно побольше почитать о QReport?
...Вопрос № 62525: Здравствуйте!
Сначала я использовал StringGrid для вывода табличных значений,
но надо сделать сортировку по столбцам (т.е. щелкнул по заголовку, отсортировался данный столбец).
Потом стал использовать ListView в режиме таблицы. Сортировка...Вопрос № 62531: Доброго времени суток уважаемые эксперты
прозьба неудивляйтесь вопросу я еще совсем новичек
для создания Баз Данных я пользуюсь программой EMS QuickDesck 2.0
в которой по умолчанию к каждой базе присвается
acc SYSDBA
pass masterk...Вопрос № 62588: Здравствуйте, уважаемые эксперты.
Подскажите пожалуйста, как можно при помощи WebBrowser получить и вывести, допустим, в ListBox содержимое определённых тегов.
Например: В файле содержится <u>текст</u>, а необходимо добавить толь...Вопрос № 62595: Маленький вопросик
В компоненте StringGrid надо выделять изменившиеся ячейки.(Я сное дело они меняються динамически)
Не важно как, но надо.
Внимание вопрос: как это реализовать??...
Вопрос № 62.476
Есть БД FireBird. Необходимо записать в поле BLOB файл размером более 1гБ. Решение в лоб не проходит:
QuerySaveRgg.ParamByName('RGG').LoadFromFile(
RggCheckList.SelectedItem , ftBlob );
- выдает сообщение о нехватки памяти. Если файл не очень большой (~5-10 мБ) то все проходит. Может быть кто нибудь сталкивался с такой проблеммой? Спасибо за помощь!
Отвечает: Маренич Владимир
Здравствуйте, Сазонов Михаил Владимирович!
В приведенном тексте у вас используется загрузка файла не в поле данных, а в ПАРАМЕТР. Поэтому сначала готовится запрос (загружается весь "параметр" из файла), а потом уже отправляется на сервер. Потому оперативки и не хватает. Попробуйте через TIBTable:
IBTable1.Open;
IBTable1.Locate('ID', ID, []);
IBTable1.Edit;
(IBTable1.FieldByName('RGG') as TBlobField).LoadFromFile(file_name);
IBTable1.Post;
Ответ отправил: Маренич Владимир (статус: Студент)
Ответ отправлен: 14.11.2006, 00:51
Вопрос № 62.479
Здравствуйте!
Нужно с помощью собощений Windows общаться двум программам. Кажется это делается через SendMessage, читал как-то статью. Но уже ничего не помню и как это делется на Дельфи?
Нужен именно этот способ. Намекните.
Заранее спасибо.
Отправлен: 13.11.2006, 17:35
Вопрос задал: Yadovit (статус: 3-ий класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: n0name
Здравствуйте, Yadovit!
WM_COPYDATA,
wParam - хендл окна, посылающего это сообщение
lParam - указатель на структуру COPYDATASTRUCT, в которой поле dwData задаёт тип передаваеммых данных(ваша константа), cbData - размер данных, lpData - указатель на данные.
Ответ отправил: n0name (статус: 8-ой класс)
Ответ отправлен: 13.11.2006, 17:42 Оценка за ответ: 5
Вопрос № 62.523
Здравствуйте!
Подскажите, где можно побольше почитать о QReport?
Отправлен: 14.11.2006, 00:19
Вопрос задал: Antares (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: KiberZero
Здравствуйте, Antares!
Попробуйте поискать на http://c-books.info/books/load.php?ty=delphi.
Надеюсь, что-то найдёте.
Ответ отправил: KiberZero (статус: 1-ый класс)
Ответ отправлен: 14.11.2006, 20:27
Вопрос № 62.525
Здравствуйте!
Сначала я использовал StringGrid для вывода табличных значений,
но надо сделать сортировку по столбцам (т.е. щелкнул по заголовку, отсортировался данный столбец).
Потом стал использовать ListView в режиме таблицы. Сортировка - элементарно,
но теперь как производить поиск в разных столбцах и сделать, чтобы столбцы не двигались (запретить изменять размеры)
Заранее благодарен!
Отправлен: 14.11.2006, 00:38
Вопрос задал: Antares (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Monah
Здравствуйте, Antares!
Для поиска используйте поля
ListView1.Items.Item[i].Caption - первая колонка.
ListView1.Items.Item[i].SubItems.Strings[e] - начиная со второй колонки
i - номер ячейки начиная с 0. Е - номер колонки. Е=0 соответствует второй! колонке.
Для запрещения изменений используйте
ListView1.Column[i].MaxWidth
ListView1.Column[i].MinWidth
Если присвоить им одинаковые значения, изменения будут невозможны.
--------- festina lente
Ответ отправил: Monah (статус: 10-ый класс)
Ответ отправлен: 14.11.2006, 07:09 Оценка за ответ: 5
Вопрос № 62.531
Доброго времени суток уважаемые эксперты
прозьба неудивляйтесь вопросу я еще совсем новичек
для создания Баз Данных я пользуюсь программой EMS QuickDesck 2.0
в которой по умолчанию к каждой базе присвается
acc SYSDBA
pass masterkey
так вот мой вопрос когда на форме подключаю базу данных после создания *.exe запускаю программу приходится вводить этот пароль каждый раз и для каждой базы отдельно представте что у меня 4 базы в этой форме
у IBDataBase есть такое свойство Params в котором можно ввести
acc & pass чтобы невводить их при каждом открытии формы
user_name=sysdba (работает) автоматом появляется имя
pasword=masterkey (неработает)
выдает DPB Constant (pasword) is uniknown
пишем paSSword вроде никаких ошибок невыдает но пароль приходится вводить всеравно
скажите пожалуста где тут моя ошибка или что я незаметил
заранее спасибо за ответ
Отправлен: 14.11.2006, 02:07
Вопрос задал: Fins (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: sir henry
Здравствуйте, Fins!
Поставьте свойство LoginPrompt в False, тогда пользователь и пароль у Вас запрашиваться не будут.
А почему у Вас 4 базы работают одновременно? Разве нельзя 4 таблицы поместить в одну базу и работать только с одной базой?
Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 14.11.2006, 03:47
Отвечает: Маренич Владимир
Здравствуйте, Fins!
Обратите внимание на то, что у Вас написано PASWORD с одной буквой 'S', а надо PASSWORD. И как сказал sir henry LoginPrompt установить в False. Устанавливать параметры подключения можно еще и по событию TIBDatabase.OnLogin.
Ответ отправил: Маренич Владимир (статус: Студент)
Ответ отправлен: 14.11.2006, 10:28
Вопрос № 62.588
Здравствуйте, уважаемые эксперты.
Подскажите пожалуйста, как можно при помощи WebBrowser получить и вывести, допустим, в ListBox содержимое определённых тегов.
Например: В файле содержится <u>текст</u>, а необходимо добавить только элемент "текст" в ListBox.
Заранее спасибо!
Отвечает: Сухомлин Кирилл Владимирович
Здравствуйте, Mini Cooper!
var
tagsU: variant; // имя переменной произвольное - просто я так привык
i: integer;
tagsU := WebBrowser.OleObject.document.all.tags('u');
ListBox.Clear;
for i := 0 to tagsU.item(i).Length-1 do
ListBox.AddItem(tagsU.item(i).innerText, nil);
Что-то типа того.
--------- Не узнаешь - не попробуешь.
Маленький вопросик
В компоненте StringGrid надо выделять изменившиеся ячейки.(Я сное дело они меняються динамически)
Не важно как, но надо.
Внимание вопрос: как это реализовать??
Отправлен: 14.11.2006, 16:03
Вопрос задал: Master135 (статус: Студент)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Представляю пример кода, а под свою задачу сами разберётесь.
procedure TMainForm.TxtDataDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var Rct: TRect;
OffsetX,OffsetY: integer;
begin
State:=[gdFocused];
if gdFocused in State then
with TxtData.Canvas do begin
Font.Style:=[fsBold];
Font.Size:=10;
Font.Name:= 'MS Sans Serif';
Font.Charset:=DEFAULT_CHARSET;
if ARow=0 then begin
Brush.Color:=clBtnFace;
Font.Color:=clGreen;
OffsetY:=2;
end else begin
Brush.Color:=clWhite;
Font.Color:=clWindowText;
OffsetY:=1;
end;
FillRect(Rect);
OffsetX:=(TxtData.ColWidths[ACol] - TextWidth(TxtData.Cells[ACol, ARow])) div 2;
if ARow=SelectedRow then begin
Inc(OffsetX,1);
Inc(OffsetY,1);
TxtData.Row:=SelectedRow;
end;
TextOut(Rect.Left+OffsetX, Rect.Top+OffsetY, TxtData.Cells[ACol,ARow]);
if (ACol=0)and(ARow=SelectedRow) then begin
Font.Size:=6;
Font.Color:=clSilver;
TextOut(Rect.Left+1, Rect.Top+1, IntToStr(ARow));
end;
if ARow<>0 then begin
Brush.Color:=clBlue;
Rct.TopLeft:=TxtData.CellRect(0,SelectedRow).TopLeft;
Rct.BottomRight:=TxtData.CellRect(TxtData.ColCount,SelectedRow).BottomRight;
Inc(Rct.Right);
FrameRect(Rct);
end else begin
Brush.Color:=clWhite;
FrameRect(Rect);
end; //if
end; //with
end;
Ответ отправил: Gladiator (статус: 5-ый класс)
Ответ отправлен: 17.11.2006, 11:17
