» Вопросы по Delphi 2

как в Explorer добавить своё раскрывающееся меню, например 7-Zip создаёт такое: http://img213.imageshack.us/img213/4946/screen002wa7.jpg
и чтобы каждый пункт запускал программу с определёнными параметрами, нашёл как сделать один пункт меню, а вот с раскрывающимся проблемс(

Добавлено:
2. есть два TImage в которые загружены битмапы, как их можно сравнить? нужно что то типа crc32 высчитать, только не файла а TImage.Picture

Цитата:

есть два TImage в которые загружены битмапы, как их можно сравнить?

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

Hazard

Цитата:

Полностью согласен, но видимо я еще не достиг "достаточно долгой итерации цикла" т.к. ProcessMessages реально помог, да же на слабой машинке.

А ты глянь сколько процессора сжирает выполнение цикла
while .. do Application.ProcessMessages;
пока условие = True - ведь пока сообщений нет оно просто гоняет программу по одному и тому же месту. Я такую вещь обычно использую когда итерация цикла все же выполняет какое то более-менее продолжительное действие, и периодически вызываю обработку сообщений чтобы форма переисовалась


Цитата:

Что ты подразумевал под т.д. или семафоры (CreateMutex, OpenMutex, Pipe) рулитят ? Если есть опыт работы с ними - поделись

По поводу синхронизации потоков лучше найди книгу Джефри Рихтер. Windows для профессионалов - книга очень полезная и думаю в электронном виде не самый большой дефицит.
А вообще для синхронизации записи в общие переменные обычно используют критические секции. Ну а советовать что-то конкретное, не зная того что и как ты пишешь, довольно сложно

Всем привет. Стоит Borland Developer Studio 2006 (бех хотфиксов)
Не могу добраться до компонента Shockwave Flash (нужен для проигрывания в окне анимации).
Нашел в инете следующие статью http://www.ishodniki.ru/art/artshow.php?id=47&cat=1&show=delphi но нечего не получилось.
Мои действия:
1) Создаю новый проект (VCL Forms Application)
2) Меню Commponent->Import component->Import Activex Control->next->Shockwave Flash->next->В разделе Pallete Page выбираю Standart->next->Finish
Дальше в моем понимании в разделе Standart должен появится новый компонент, но вместо этого открывается unit ShockwaveFlashObjects_TLB; и что с ним дальше делать непонятно...

Подскажите, что не так делаю.

goodwen, попробуй установить этот unit как компонент (компонент -> установить компонент)

Приветствую всех! Может, кто писал парсер DDL SQL скриптов или знает компоненту для этого под ADO (надо из скрипта сгенерить структура БД в mdb файле).

Так. Повторяю вопросик. Как с помощью дельфи ведрнуть кусок файла между

Код: 123'123

Zver1992
а пример странички с текущими именами полей можно? можно в пм

Dmitry
http://tztime.ru/code.txt
Он именно в такой неудобной форме поставляеться
Нужно выдерать вот эти значения:
<input type=hidden name='WiCkBzQu' value='0'><input type=hidden name='YuFuEsYr' value='-1'><input type=hidden name='QuNaPhJq' value='-1'>

Нужно только name'ы раскинуть и всё. value уже не нужны.

Zver1992, загружай html в memo и ищи что нужно примерно таким образом: pos('name=',memo1.lines.text), потом копируй что нужно (copy)

goodwen
Покоже еще один глюк в мастере импорта компонент.
Как советовал Jokerjar сделать не получится, так как в 2006 больше нет мастера установки компонента - придется все то же самое, но ручками:
- после импорта открой ..\Borland\BDS\4.0\lib\dclusr.bds
- в ProjectManager правой кнопкой по dclusr100.bpl -> Add и добавь ..\Borland\BDS\4.0\Imports\ShockwaveFlashObjects_TLB.pas
- в том же контекстном меню выбери Install

Zver1992
Для таких вещей очень удобно использовать реглярные выражения.
А если делать через Pos, то Memo использовать совсем не обязательно - хватит и обычного TStringList

Как можно принудительно поменять кодировку в TWebBrowser, в случае если он ее определил не правильно?
Как определить нужную кодировку - знаю.

Добавлено:
и отключить сообщение о ошибках при открытии

RomanTim
нда, сильно ему поможет TStringList, если там все в одну строку

Zver1992
а что касается разбора - то действительно или регулярные выражения (TRegExp например), или парсить вручную. учитывая узкую специализацию задачи, второе может оказаться даже менее трудоемким

Dmitry
Яписал к тому, что нет смысла дергать большой и визуальный TMemo, у которого использовать только Lines.Text. А вообще для того чтобы в строку поместить тектовый файл довольно удобно, хотя можно и через TStringStream - но он сам по строкам не разберет

Спасибо всем кто ответил.
Решение нашел в Интернете(проморгав ответ RomanTim), в 2006 это делается через создание пакета.

Новый вопрос:
На форме имеется компонент ListBox добавив в него несколько Items и откомпилировав можно пощелкав, выбирать нужный итемс при этом выбранный итемс выделяется СИНИМ ЦВЕТОМ, можно ли этот цвет поменять на другой или же это решается только настройками цветов виндоус ?

goodwen
Не обязательно. Устанавливаешь Style в OwnerDraw и отрисовываешь элементы в OnDrawItem как тебе нравится

goodwen
Всё можно, если осторожно. Просто нужно переопределить в ListBox OnDrawItem и стиль выставить Style = lbOwnerDrawFixed. И можно будет отрисовывать хоть в клеточку.
---
Добавлено
Медлено пишу
Можно также в JEDY заюзать компоненты

эээ...а сможно для адаренных в деталях?

goodwen
Например, [more=так]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
Flags: Longint;
Data: String;
begin
with ListBox1 do
begin
if odSelected in State then Canvas.Brush.Color := clLime else Canvas.Brush.Color := Color;
Canvas.FillRect(Rect);
if Index < Count then
begin
Flags := DrawTextBiDiModeFlags(DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX);
if not UseRightToLeftAlignment then
Inc(Rect.Left, 2)
else
Dec(Rect.Right, 2);
Data := Items[Index];
DrawText(Canvas.Handle, PChar(Data), Length(Data), Rect, Flags);
end;
end;
end;
[/more]
Код взят из исходноков VCL и немного доработан.

Ramazan
О да это то что нада спасиба

Помогите с теоретическими вопросами по Дельфи:

Стандарты приложений и работа с сервером в СП Delphi.

Формы: создание и обработка в Delphi.

Протоколы, передача файлов и электронная почта в Delphi.

У кого есть учебники плз, 15 строчек черкните, завтра на экзамен нужны...

Thomas78
Тебе бы сходить в раздел http://forum.ru-board.com/topic.cgi?forum=93&topic=0480#1
Ну либо сюда _ttp://c-books.info/books/load.php?ty=delphi
Там книг полно про делфи.

RedPromo
Сейчас качать книги размером по 40-50 мб ни трафика ни времени нет...
Ладно, спасибо.

Thomas78
так ты бы сразу сюда экзаменационные вопросы бы выкладывал....
я вообще не понимаю, что так трудно взять книгу по Delphi и почитать хоть не много и разораться с теорией... на много лучше, чем тебя будут спрашивать и переспрашивать на форуме, так как по тем вопросам что ты привёл можно говорить долго...

DroN_S
Знаю, что долго поэтому в крации попросил, строчек 15-20. Если были бы книги посмотрел бы... Ну ладно не будем оффтопить, спасибо.

Цитата:

Формы: создание и обработка в Delphi.

есть динамические и модальные формы.

Цитата:

Протоколы, передача файлов и электронная почта в Delphi.

это работа с SMTP

Цитата:

Стандарты приложений и работа с сервером в СП Delphi.

в каком смысле... об этом по подробнее...

Программа на Делфе, база Акцес. Для отладки запускаю трассировщик запросов из Источников данных ОДБС, но он почему то трассирует не все запросы. есть ли какой нить способ перехватывать все запросы?

как добраться у компонента TDBLookupComboBox
к свойству itemindex?
надо присвоить каждой строке в нем цифровое значение

GTA3
В качестве ItemIndex, если нет фильтрации, можешь использовать
DBLookupComboBox1.ListSource.DataSet.RecNo
только учитывай, что начинается с 1

как быстрее добавить в базу Access несколько тысеч записей (в одну табличку)?