Разделы сайта:

Новости сайта
Delphi.int.ru Expert
Файловый архив
∙ Статьи
∙ Компоненты
∙ Plug-in's
∙ Документация
∙ Исходники
∙ Изображения
∙ Игры
∙ Программы
Форум
F.A.Q.
Архив рассылки
Каталог сайтов
Обратная связь

Разделы рассылки:

Авторское слово
Delphi.int.ru Expert
Статья по Delphi
Файловый архив
Друзья
Юмор

Количество читателей рассылки: 5206.

Текст вопроса:

Уважаемые, эксперты.Помогите пожалуйста! Что нужно добавить, чтобы программа записывала значения 'a' и 'x1' в текстовый файл после какого-то текста?

Приложение:

procedure TForm1.N11Click(Sender: TObject); Var H:TextFile; a:integer; x1:real; begin AssignFile(H,'History.txt'); append(H); Writeln(H,'Какой-то текст'); Writeln(H,'Какой-то текст'); CloseFile(H); end;

Вопрос задал участник: Свиридов Евгений Геннадьевич
Дата и время отправки вопроса: 24.05.2006, 13:00
Всего ответов: 2
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: Вадим К (статус: 6-ой класс), 24.05.2006, 13:50]:

Writeln(H,'Какой-то текст',a);
Writeln(H,'Какой-то текст',x1);
или
Writeln(H,a);
процедура Writeln - это так называемая "магическая", тоесть не неё не распространяются много правил языка. Компилятор зает как правильно обработать её. В данном случае, количество и типы параметров могут быть разные.

2. [Отвечает: Бубырь Александр Николаевич (статус: 1-ый класс), 25.05.2006, 09:51]:

Процедура writeln допускает передачу нескольких выводимых параметров через ",":
Writeln(H,'Например ',a);
В некоторых случаях удобнее самому создавать выводимую строку:
Writeln(H,'Например '+IntToStr(a));

Текст вопроса:

Здравствуйте! Подскажите пожалуйста, возможно ли написать на Delphi(7, 2006) TSR? Если да, то как? Спасибо!

Вопрос задал участник: Алексей
Дата и время отправки вопроса: 26.05.2006, 08:35
Всего ответов: 2
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: bruder (статус: 2-ой класс), 26.05.2006, 09:16]:

Здравствуйте, Алексей.
В приложении пример программы TSR (Terminate and Stay Resident).

Приложение:

program MyResident; uses Windows, ShellAPI, Messages; const ClassName = 'MyResident'; { Имя класса } var mywnd: hWnd; { Окно программы } function MyWndProc(wnd: hWnd; msg, wParam, lParam: longint): longint; stdcall; begin case msg of WM_TIMER: begin { Событие таймера } messagebox(mywnd,'Это резидентная программа','',0); result := 0; end; WM_HOTKEY: begin { Нажата горячая клавиша } PostQuitMessage(0); result := 0; end; WM_DESTROY: begin { Закрытие программы } PostQuitMessage(0); result := 0; end; else Result := DefWindowProc(wnd, msg, WParam, LParam); end; end; function CreateMyWnd: hWnd; var wc: WndClass; begin { Регистрация класса: } wc.style := 0; wc.lpfnWndProc := @MyWndProc; wc.cbClsExtra := 0; wc.cbWndExtra := 0; wc.hInstance := hInstance; wc.hIcon := 0; wc.hCursor := 0; wc.hbrBackground := COLOR_WINDOW; wc.lpszMenuName := nil; wc.lpszClassName := ClassName; if RegisterClass(wc) = 0 then halt(0); { Создание окна: } result := CreateWindowEx(WS_EX_APPWINDOW, ClassName, 'My Window', WS_POPUP, 0, 0, 0, 0, 0, 0, hInstance, nil); if result = 0 then halt(0); end; var msg: TMsg; begin mywnd := CreateMyWnd; {Создание окна} SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_IDLE); { Установка низкого приоритета } RegisterHotKey(mywnd, 0, 0, VK_PAUSE);{Регистрация "горячей клавиши"} SetTimer(mywnd, 0, 5000, nil); {Создание таймера} while (GetMessage(msg, 0, 0, 0)) do begin TranslateMessage(msg); DispatchMessage(msg); end; KillTimer(mywnd, 0); {Уничтожение таймера} UnregisterHotKey(mywnd, 0); {"Уничтожение" горячей клавиши} end.

Оценка за ответ: 4.
Комментарий: Прошу прощения, моя ошибка - не дописал DOS... Но как мне кажется, tsr - dos как само собой разумеющееся...

2. [Отвечает: Вадим К (статус: 6-ой класс), 26.05.2006, 11:29]:

Соглашусь с предыдущим экспертом, но добавлю
TSR - это программы времён DOS'а которые оставались в памяти и делали какую-то полезную и (не очень) работу. Просто тогда не было многозадачности (нельзя было запускать две программы одновременно). Сейчас это дивно, а тогода - норма.
Сейчас операционная система хорошо разруливает десятки приложений и всё работает. В данный момент наиболее вероятной заменой есть сервисы, драйвера (писать на делфи можно, правда только в 3 да ещё с извратом) и хуки.
То что предложил предыдущий эксперт - это обычная программа (хоть и написана на WinAPI)которая создаёт невидимое окно (в понятии делфи - форму) и регистрирует глобальную горячюю клавишу. Резонный вопрос: а зачем нам окно, если мы его не отображаем и вроде не используем?
Отвечаю. Для того, чтобы ваша программа могла обработать сообщения таймера и сообщение о том, что была нажата горячая клавиша, у ваше приложения должно быть окно. Так устроена Windows, она должна знать куда слать сообщения.

Оценка за ответ: 4.
Комментарий: Прошу прощения, моя ошибка - не дописал DOS... Но как мне кажется, tsr - dos как само собой разумеющееся... Я и хотел спросить: возможно ли написать tsr именно для DOS? на С++ я знаю такое написать можно, вот я и подумал, может и на delphi возможно...

Текст вопроса:

Как перемещать окно за форму, в смысле например если я делаю BorderStyle:=bsNone; и перемещать нужно или за форму или за какой-то другой элемент (кнопку, например)??? За ранее, спасибо!!!

Вопрос задал участник: Евгений В
Дата и время отправки вопроса: 27.05.2006, 01:43
Всего ответов: 2
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: Dron (статус: 7-ой класс), 27.05.2006, 07:56]:

Почитайте вот здесь: http://www.delphi.int.ru/?name=articles&action=view&articleid=4 В конце этой статьи есть пример, как реализовать перемещение окна "за форму".

Оценка за ответ: 5.
Комментарий: И вам спасибо! Статья полезная! Как раз то что мне надо!

2. [Отвечает: bruder (статус: 2-ой класс), 27.05.2006, 08:25]:

Здравствуйте, Евгений В.
В событие OnMouseDown нужного компонента напиши две строчки из приложения к ответу.

Приложение:

ReleaseCapture; Form1.perform(WM_SysCommand, $F012, 0);

Оценка за ответ: 5.
Комментарий: Спасибо! Всё работает! :)

Текст вопроса:

Здравствуйте Эксперты ! Как использовать МР3 кодеки установленные в Винде(в частности проигрывание, позиционирование, ID3 тэги и др.), или посоветуйте компоненты для проигрывания МР3 бесплатные, а то SwiftSoft Multimedia платная и без IDE Delphi не запускается.

Вопрос задал участник: deemixman
Дата и время отправки вопроса: 28.05.2006, 12:18
Всего ответов: 2
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: bruder (статус: 2-ой класс), 28.05.2006, 16:10]:

Здравствуйте, deemixman!
TMediaPlayer. Он может проигрывать и MP3. Если это вам не подходит, то рекомендую использовать библиотеку bass (поднять можно тут http://www.un4seen.com/).
Прочитать про тэги можно тут http://www.delphi.int.ru/?name=articles&action=view&articleid=1
УДАЧИ!

Оценка за ответ: 5.
Комментарий: Спасибо за bass

2. [Отвечает: Вадим К (статус: 6-ой класс), 29.05.2006, 11:16]:

ID3 тэги лучше читать ручками, так как у многих зарубежных компонент есть проблем с кириллицей. Это не очень сложно, так как просто нужно прочитать запись с файла.
Вот здесь почитайте
www.delphiworld.narod.ru/base/get_id3tag_v1.html
www.delphiworld.narod.ru/base/id3_mp3.html

Оценка за ответ: 4.
Комментарий: Нет ничего про проигрывание МР3

Текст вопроса:

Здравствуйте, подскажите, пожалуйста, как сделать сортировку строк (например, в алфавитном порядке)в StringGrid по какой либо колонке

Вопрос задал участник: Александр (Alv)
Дата и время отправки вопроса: 28.05.2006, 12:37
Всего ответов: 2
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: bruder (статус: 2-ой класс), 28.05.2006, 16:08]:

Здравствуйте, Alv!
Код в приложении. Использовать так: GridSort(StringGrid1, 1);
Удачи!

Приложение:

procedure GridSort(StrGrid: TStringGrid; NoColumn: Integer); var Line, PosActual: Integer; Row: TStrings; begin Renglon := TStringList.Create; for Line := 1 to StrGrid.RowCount - 1 do begin PosActual := Line; Row.Assign(TStringlist(StrGrid.Rows[PosActual])); while True do begin if (PosActual = 0) or (StrToInt(Row.Strings[NoColumn - 1]) >= StrToInt(StrGrid.Cells[NoColumn - 1, PosActual - 1])) then Break; StrGrid.Rows[PosActual] := StrGrid.Rows[PosActual - 1]; Dec(PosActual); end; if StrToInt(Row.Strings[NoColumn - 1]) < StrToInt(StrGrid.Cells[NoColumn - 1, PosActual]) then StrGrid.Rows[PosActual] := Row; end; Renglon.Free; end;

2. [Отвечает: mvp (статус: 3-ий класс), 29.05.2006, 10:28]:

Моя версия сортировки отличается тем, что можно сортировать в двух направлениях по очереди.

Приложение:

procedure SortGrid(Grid : TStringGrid; Col : integer; ascend : boolean = false); var _, __, i : integer; s : String; begin if Col <= Grid.ColCount - 1 then begin for _:= 1 to Grid.RowCount - 1 do for __:= _+ 1 to Grid1.RowCount - 1 do if ascend and (StrTOfloat(Grid.Cells[col, _]) > StrTOFloat(Grid.Cells[col, __])) or not ascend and (StrTOFloat(grid.Cells[col, _]) < StrTOFloat(GRid.Cells[col, __])) then for I := 0 to Grid.ColCount - 1 do begin s := GRid.Cells[i, _]; GRid.Cells[i, _] := GRid.Cells[i, __]; GRid.Cells[i, __] := s end; for _:= 0 to Grid.ColCount - 1 do if Grid.Cells[_, 0][length(Grid.Cells[_, 0])] in ['^', 'v'] then Grid.Cells[_, 0] := copy(Grid.Cells[_, 0], 1, length(GRid.Cells[_, 0]) - 2); if ascend then GRid.Cells[col, 0] := GRid.cells[col, 0] + ' v' else GRid.Cells[col, 0] := GRid.Cells[col, 0] + ' ^' end end; //------------------------------------------------------------------------------ procedure TForm1.StringGrid1DblClick(Sender: TObject); var f : TPoint; p, i : integer; begin f:= StringGrid1.ScreenToClient(Mouse.CursorPos); if StringGrid1.MouseCoord(f.X, f.Y).Y <= 0 then begin SortGrid(StringGrid1, StringGrid1.MouseCoord(f.X, f.Y).x, boolean(StringGrid1.Cols[Stringgrid1.MouseCoord(f.X, f.Y).X].Objects[0])); StringGrid1.Cols[Stringgrid1.MouseCoord(f.X, f.Y).X].Objects[0] := tobject(pointer(not boolean(StringGrid1.Cols[Stringgrid1.MouseCoord(f.X, f.Y).X].Objects[0]))) end end;

Текст вопроса:

Приветствую! Есть сервак FreeBSD с поднятым Апачем+php (upload_max_filesize=2M), каким образом я могу залить со своей проги файл, ну допустим 10 мегов. Есть ли альтернатива методу POST_FILE, пока думаю, что только таким образом можно достичь нужного мне результата?

Вопрос задал участник: IrviS
Дата и время отправки вопроса: 28.05.2006, 18:02
Всего ответов: 2
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: Вадим К (статус: 6-ой класс), 29.05.2006, 11:24]:

Если на сервере стоит ограничение на размер, то "цивилизоваными" методами залить не удастся. Конечно, можно поискать уязвимости, но это уже совсем законно.
Но могу предложить другой метод. Делим файл на куски по пару сотен килобайт. Пересылаем на сервер кусочками. На сервере стоит скрипт, который потом соберёт это назад в один файл. Такой способ имеет несколько преимуществ.
1) размер файла теперь ограничен доступным местом на винте (или квоте)
2) автоматически появляется возможность "докачки". Если блоки не слишком большие, то если закачка сорвалась, нам надо переслать только текущий блок.
3) Если на новом хостинге будет ограничение на другой размер, то всё легко перенастроить.

Существует ли альтернативный способ? А фтп устроит?

2. [Отвечает: Степанов Игорь Николаевич (статус: 2-ой класс), 29.05.2006, 14:36]:

Возможно, сначала попробуй разбить этот файл на куски. Далее залей на сервер, а потом на сервере выполни команду сборки файлов.

Текст вопроса:

Каким образом возможно реализовать стиль интерфейса как у Nero SmartStart или Windows Media Player? А именно как позволить пользователю изменять цвет интерфейса на произвольный? Если существуют подобные библиотеки или компоненты подскажите какие.

Вопрос задал участник: Косарев Антон Сергеевич
Дата и время отправки вопроса: 29.05.2006, 03:02
Всего ответов: 3
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: Матвеев Игорь Владимирович (статус: 7-ой класс), 29.05.2006, 11:29]:

В Nero SmartStart, как я понимаю, не используются skin библиотеки, просто интерфейс оформлен изображениями, а у WMP - скины, но, в любом случае, скин - это набор изображений, а чтобы изменить цвет интерфейса, Вам достаточно изменить палитру у всех этих изображений.

Приложение:

Пример смены палитры: http://www.delphiworld.narod.ru/base/change_images_color_palette.html Библиотека TSkinForm: http://www.friendsoft.net

2. [Отвечает: Вадим К (статус: 6-ой класс), 29.05.2006, 11:32]:

Такие компоненты существуют и называются они компоненты для поддержки скинов. Вообщето есть много разных библиотек, платных и бесплатных. Скачать компоненты можна с сайта torry. конкретно скины http://www.torry.net/quicksearchd.php?String=skin&Title=Yes
смотрим на буковки возле названий компонентов. Если там SW - платный, FW - бесплатный, FWS - ещё и с исходниками.

Оценка за ответ: 4.

3. [Отвечает: Степанов Игорь Николаевич (статус: 2-ой класс), 29.05.2006, 14:39]:

Тебе поможет KSDev ThemeEngine (http://www.ksdev.com/themeengine/index.html)

Текст вопроса:

Здраствуйте эксперты, меня давно мучает вопрос, а можноли вообще напимсать программу распознания голоса или какого нибудт звукового сигнала? Спасибо за внимание.

Вопрос задал участник: Николай Фролов
Дата и время отправки вопроса: 29.05.2006, 08:23
Всего ответов: 3
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: Матвеев Игорь Владимирович (статус: 7-ой класс), 29.05.2006, 11:20]:

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

Распознавание - это нейронные сети, наберите в любом поисковике "нейронные сети + delphi" и найдете массу ссылок. Распознавание звука я не встречал, поскольку с ним работать посложнее, а вот символов видел, только ссылочку потерял, к сожалению.

2. [Отвечает: Вадим К (статус: 6-ой класс), 29.05.2006, 11:40]:

можно, так как такие программы есть:)
Но обычно это академические разработки. Разпознать простой звуковой сигнал (например звук клавиши фортепианно или баяна (не путать с бОяном)) достаточно просто - там чистый тон. Но уже аккардеона сложней.
Для того, что бы убедиться, что голос сложно распознать, запустите программу типа SoundForge и запишите с микрофона какое-нибудь слово, причём несколько раз. Пытайтесь произносить одинаково. Вы увидите, что картинка несколько отличается. А если вы попросите несколько своих знаковых произнести это слово, то картинка будет вообще иной. Но на слух вы слышите одно слово.
Считается, что обычный программист может за приемлемое время написать программу, которая будет распознавать несколько (20-30) его комманд, но не больше. Но только прийдёт ваш брат или сестра - и уже нужно переучивать программу....

3. [Отвечает: Евгений В (статус: 1-ый класс), 29.05.2006, 14:09]:

Исходником помочь не могу, просто ниразу этого не делал, но сделать можно всё что угодно, в принципе!!!
Надо снимать звук с микрофона, а затем обрабатывать его структуру. Ведь у каждого звукового сигнала есть определённая частота, искажения (форма сигнала) и т.д. Просто чтобы распознавать какой либо звук необходимо за ранее знать и частоту и возможные искажения (форму сигнала) и т.д.
Конечно у реальных звуков из жизни форма сигнала может быть очень сложной, поэтому это весьма непростая задача...

Текст вопроса:

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

Вопрос задал участник: Котышева О А
Дата и время отправки вопроса: 29.05.2006, 13:11
Всего ответов: 4
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: Евгений В (статус: 1-ый класс), 29.05.2006, 14:19]:

В принципе можно, только не факт что этот способ сработает.
Можно например открывать каждый графический файл по очереди и проверять каждый его пиксель, сверяя его цвет с таким же по координатам цветом пикселя аналога.
Но, естественно, это будет ОООЧЕНЬ медленный процесс, да и к томуже он сработает только при полном соответствии пикселей оригинала и копии. С JPEG врятли сработает (сработает если это просто копия, а не заново сжатый файл) или если BMP и JPEG то врятли сработает (из за сжатия пиксели будут несовсем совпадать).

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

Оценка за ответ: 4.

2. [Отвечает: min@y™ (статус: 1-ый класс), 29.05.2006, 15:41]:

Ладно, чего уж там! Чего велосипед-то изобретать? Написал я такую прогу. Работает она только с файлами *.jpg и делает примерно следующее:

1. В заданной папке и подпапках ищет все jpg-файлы.
2. Вычисляет CRC32 каждого файла и составляет список.
3. Отфильтровывает файлы с одинаковыми CRC32.
4. Копирует в заданную юзером папку все файлы, кроме дубликатов.

То, что только jpg - это не проблема, можно её заточить и под другие форматы.

Могу выслать exe и исходники или где-нить выложить.

3. [Отвечает: Матвеев Игорь Владимирович (статус: 7-ой класс), 30.05.2006, 02:30]:

min@y™ прав - нужно составлять таблицу хеш-значений, только не самого файла, как у него, а битовой матрицы - это сложнее, но будет лучше работать, ведь если у Вас есть два абсолютно одинаковых JPEG рисунка, но один с прогрессивной разверткой, а другой - нет - метод min@y™ не сработает. Итак, Вам нужно составлять таблицу вида Имя файла - Размер картинки - Hash.
Hash функцией может быть обыкновенный CRC, но это не лучший вариант в Вашем случае, можно поискать или даже придумать свою функцию, отражающую "сходство" образцов.
А если вам нужно простое решение - просто сравните размер файлов, отличающиеся значительно - разные, незначительно - подозрение, один размер - одинаковые.

Оценка за ответ: 4.

4. [Отвечает: Бородинов Илья (статус: 1-ый класс), 30.05.2006, 06:05]:

То что ты предлагаешь не что иное как поиск графических файлов с одинаковым размером. Если ты хочешь создать анализатор который бы полностью аналитически сравнивал изображения то ты маньяк. Единственный способ (помоему) - искать графические файлы, сравнивать их размер, разрешение и по контрольным точкам определять такойже или нет. Вощем застрелишся....

Текст вопроса:

Недавно я спрашивал о боблиотеке для распаковки разных типов архивов, но нормальной не нашел, поэтому пишу свою. Напомню, от ZipTV пришлось отказаться, поскольку она неправильно работает с именами файлов в Русской раскладке. Сейчас я пишу класс, для распаковки Zip, использую библиотеку MiniZip (www.torry.ru), но оказывается она тоже не понимает Русских имен файлов. Вообще все библиотеки, что я нашел, для работы с Zip не понимают таких имен (исключая использующие dll, но это мне не подходит). Кроме того, я выяснил, что дело не в библиотеке, а в самом формате - имя файла записывается в файл архива в исковерканом виде, но ведь WinRar его понимает. Помогите разобраться с этим, может кто сталкивался - как преобразовать имя файла обратно в читаемый вид?

Приложение:

Примеры имен: турдоговор1.jpg ->вгमЈ®ў®а1.jpg Текстовый документ.txt -> ’ҐЄбв®ўл ¤®Єг¬Ґ­в.txt

Вопрос задал участник: Матвеев Игорь Владимирович
Дата и время отправки вопроса: 29.05.2006, 13:35
Всего ответов: 2
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: Dron (статус: 7-ой класс), 29.05.2006, 14:00]:

Всё не так сложно, Игорь!
Недолгие эксперименты показали, что это - кодировка DOS, а перекодировать её следует в WIN. Опознать текст удалось с помощью программы Штирлиц. Также мне удалось найти небольшой пример перекодировки строк. См. его в приложении. Надеюсь, что вам всё удастся. Удачи!

Приложение:

procedure TForm1.Button1Click(Sender: TObject); var code1, code2: TCode; s: string; c: char; i: integer; chars: array [char] of char; str: array [TCode] of string; begin case ComboBox1.ItemIndex of 1: code1 := koi; 2: code1 := iso; 3: code1 := dos; else code1 := win; end; case ComboBox2.ItemIndex of 1: code2 := koi; 2: code2 := iso; 3: code2 := dos; else code2 := win; end; s := Memo1.Text; Str[win] := 'АаБбВвГгДдЕеЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя'; Str[koi] := 'юЮаАбБцЦдДеЕфФгГхХиИйЙкКлЛмМнНоОпПяЯрРсСтТуУжЖвВьЬыЫзЗшШэЭщЩчЧъЪ'; Str[iso] := 'РрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯяа№бёвђгѓдєеѕжізїијйљкњлћмќн§оўпџ'; Str[dos] := 'Ђ ЃЎ‚ўѓЈ„¤…Ґ†¦‡§€Ё‰ЉЄ‹"Њ¬Ќ­Ћ®ЏЇђа'б'в"г"де–ж—з˜и™йљк›лњмќнћоџп'; for c := #0 to #255 do Chars[c] := c; for i := 1 to Length(Str[win]) do Chars[Str[code2][i]] := Str[code1][i]; for i := 1 to Length(s) do s[i] := Chars[s[i]]; Memo2.Text := s; end;

Оценка за ответ: 4.
Комментарий: Да, это действительно Dos кодировка, непонятно только почему в описаниях Zip формата не написанно, что здесь принята именно Dos кодировка для имен файлов.

2. [Отвечает: Помфюк Владимир Степанович (статус: 5-ый класс), 29.05.2006, 16:29]:

Какая-то логика в том, что программы изначально писаны по ДОС сохранают обратную совместимость и, соответственно, кодировку, есть. Пример от Dron'а Вам понадобится если попадутся архивы со специфическими буквами, например украинские і,ї,є. Если имена только русские Вам достаточно воспользоватся функцией OEMToANSI

Приложение:

WinStr:=OemToAnsi(DOSStr);

Оценка за ответ: 4.
Комментарий: Да, это действительно Dos кодировка, непонятно только почему в описаниях Zip формата не написанно, что здесь принята именно Dos кодировка для имен файлов. В общем, проблема решена.

Текст вопроса:

Можно ли мне в своей процедуре использовать (Sender: TObject). Просто дописать - не прокатывает. Если можно, то как?

Вопрос задал участник: Иванов Сергей
Дата и время отправки вопроса: 29.05.2006, 16:13
Всего ответов: 3
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: Помфюк Владимир Степанович (статус: 5-ый класс), 29.05.2006, 16:40]:

Почему "не прокатывает"? Такой код(см. приложение) должен работать. Если же речь идет о обработчика события, в котором параметр Sender не предусмотрен - тут сложнее. При желании можно переписать компонент с обработчиком, который содержит Sender'a, но обычно по параметрам, которые передаются в обработку события можно определить компонент, который сгенерировал событие через свойства .Parent (возможно несколько раз: .Parent.Parent или как-то еще).

Приложение:

interface procedure MyProc(Sender:TObject); .............. implementation procedure MyProc(Sender:TObject); begin {Тут что-то делаем} end;

Оценка за ответ: 5.

2. [Отвечает: Darya Ermakova (статус: 8-ой класс), 29.05.2006, 17:38]:

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

Приложение:

procedure ShowMs(Sender: TObject); begin if Sender is TButton then ShowMessage(TButton(Sender).Caption); end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMs(Sender); end;

Оценка за ответ: 5.

3. [Отвечает: Матвеев Игорь Владимирович (статус: 7-ой класс), 30.05.2006, 02:18]:

Просто поясню, Sender - как правило, этот параметр присутствует в обработчиках событий объектов, он служит для того, чтобы знать от какого именно объекта вызван обработчик события, если у Вас один обработчик висит на несколько объектов.

Просто в своей процедуре Вы, конечно, можите его использовать, никто не запрещает.

Оценка за ответ: 4.

Текст вопроса:

Помогите пожалуста. Уже не первый день парюсь... 1. искал, но так и не нашел, с помощью чег овставить картинку формата JIG? на сайтах пишут с помощью компонента TGIFImage - где найти? 2. добавляю в МЕМО-поле текст с помощью стандартного кода (приложение). Но он добавляет каждый раз на новую строку. Как сделать, что бы текст в МЕМО-поле дописывался в ту же строку? (а не в новую)

Приложение:

procedure TForm1.Image33Click(Sender: TObject); begin Memo1.Lines.Append('[img]http://img.combats.ru/i/align9.gif[/img]'); end;

Вопрос задал участник: Aku Demon
Дата и время отправки вопроса: 30.05.2006, 14:00
Всего ответов: 3
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: Darya Ermakova (статус: 8-ой класс), 30.05.2006, 14:47]:

1) Тут есть TGIFImage 3.0:
http://www.sulako.com/files/gifimg30.zip
2) очень просто:
Memo1.Lines[0]:=Memo1.Lines[0]+'hello';

2. [Отвечает: Евгений В (статус: 1-ый класс), 30.05.2006, 15:37]:

Здравствуйте!
Всё просто, насчёт строки.
Смотри пример в приложении.

Просто нужно сначало удалить старую строку, а потом на её место вставить новую с помощью метода Insert.

Приложение:

procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Delete(1); //Удаляем строку (по номеру строки) Memo1.Lines.Insert(1, 'Строка'); //Вставляем на её место нужную строку end;

3. [Отвечает: min@y™ (статус: 1-ый класс), 30.05.2006, 16:48]:

Короче:

1. Альтернатива TGIFImage - TRxGifAnimator из пакета RxLib.

2. Если надо писать текст в конец текста Memo, то проще наверно так (см. ниже).

Приложение:

Memo.Lines.BeginUpdate; try Memo.Text:= Memo.Text + '[img]http://img.combats.ru/i/align9.gif[/img]'; finally Memo.Lines.EndUpdate; end;

Текст вопроса:

Ув. эксперты, нужна ваша помощь. Есть переменная такого типа: array of array [0..2] of array of integer; Нужно скопировать ее содержимое в другую такую же. Присваиванием динамические массивы не копируются, а Copy в данном случае выдает ошибку. Есть ли еще какой-нибудь способ скопировать такой массив, не используя цикл?

Вопрос задал участник: Darya Ermakova
Дата и время отправки вопроса: 31.05.2006, 15:57
Всего ответов: 4
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: min@y™ (статус: 1-ый класс), 31.05.2006, 16:53]:

Ни разу не работал с 3D-массивами, но попробую подсказать. Это у тебя динамический массив. Если хочешь скопировать его содержимое в такую же переменную (или ваще куда угодно), пользуйся процедурой Move(), только размер массива-получателя (во всех его измерениях) поставь большим или равным размеру данных в 1-м массиве.

Приложение:

Move(<откуда>, <куда>, <сколько байт>); // Пример копирования строки в дин. массив var S: string; A: array of byte; begin S:= '12345'; SetLength(A, Length(S)); Move(S[1], A[0], Length(A)); end;

Оценка за ответ: 2.
Комментарий: move я пробовала, он к сожалению тоже копирует только ссылку на массив.

2. [Отвечает: mvp (статус: 3-ий класс), 31.05.2006, 19:15]:

Ничего сложного не вижу, попробуйте так, как в приложении (правда такие замысловатые динамические массивы не пробовал, где они в середине не динамические). Где-то так примерно, как в приложении. Если б не фиксированный размер в середине, то работало б точно, а так - попробуйте

Приложение:

var a, b : array of array[0..2] of array of integer; _, __, i: integer; begin {ну где-то тут Вы определили массив a. теперь копируем в b} Setlength(b, length(a)); for _:= 0 to length(a) - 1 do for i := 0 to 2 begin Setlength(b(_, i), length(a(_, i)); for __:= 0 to length(a(_, i)) - 1 do b(_, i, __) := a(_, i, __) end end;

Оценка за ответ: 4.
Комментарий: В результате почти так и сделала, только немного короче получилось. Было бы 5, если бы объяснили, почему без циклов нельзя :)

3. [Отвечает: Вадим К (статус: 6-ой класс), 01.06.2006, 11:59]:

Сделать это без циклов вам не получиться. Почему? Просто двумерный динамический массив - это одномерный массив указателей на одномерные массивы (кто то из сишников говорил мне, что такое в Делфе нельзя описать одной строкой :) ). Эти одномерные массивы могут находиться в разных местах памяти, поэтому за один проход - никак.
Что же делать?
копировать вручную. Правда иногда можно найти общего в своих процедурах и написать процедуру копирования

Оценка за ответ: 5.
Комментарий: Похоже, вы правы. Мне казалось, что Copy копирует и многомерные массивы, но видно что-то перепутала. Спасибо за разьяснения, помогли понять, что там происходит.

4. [Отвечает: Yurchik (статус: 3-ий класс), 02.06.2006, 00:49]:

Мож подкорректируешь оценку mvp? Все таки он код написал, лучше вряд ли что-то придумаешь. Оформи этот код в отдельную процедуру с двумя параметрами (массив-источник и массив-копия) и вызывай эту процедуру сколько хочешь раз :)

Оценка за ответ: 3.
Комментарий: согласна :)

Текст вопроса:

Прошу помочь, знающие люди! Как мне из программы свызаться с базой данных в Интернет??? (прошо ответить по-подроднее) :)

Вопрос задал участник: Polyakov Ihor
Дата и время отправки вопроса: 02.06.2006, 19:46
Всего ответов: 2
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: Вадим К (статус: 6-ой класс), 03.06.2006, 13:00]:

Базы бывают разные И соответственно, по разному к ним подключаться. Наиболее вероятно вы имеете в виду MySQL. Для них давно придумали комноненты для подключения. Так как MySQL - сервер, то ему абсолютно всё - равно где работать, вы к нему обращаетесь по адрес:порт. Зайдите на torry.ru и найдите подходящие компоненты.

Оценка за ответ: 4.
Комментарий: Все хорошо, только если б еще все было понятно.. :)

2. [Отвечает: Ершов Денис (статус: 4-ый класс), 06.06.2006, 21:58]:

Здраствуйте, Polyakov Ihor.

Классические модели доступа к БД при удаленном доступе малоэффективны. Зачастую мы этому обязаны слишком узким каналам. Поэтому для этих целей испльзуют многозвенные распределенные приложения или, наиболее часто используемы частный случай, трехзвенные. Любая уважающая себя книга по БД для Delphi должна иметь главу посвященную данной модели доступа. Сами, надеюсь, понимаете материал целой главы в ответ не втиснуть.

Конкретней:

Компоненты Delphi7, обеспечивающие разработку данного приложения, объеденены на закладке DataSnap (для Delphi5 - MIDAS). Примеры использования данных компонентов есть у Delphi в Демо.
В общем архитектура многозвенного приложения выглядит следующим образом:
Сервер БД -- LAN -- ПО промежуточного слоя (Сервер приложения) -- Канал удаленного доступа (Интернет) -- Клиентская часть приложения.

Надеюсь достаточно подробно.

Оценка за ответ: 5.
Комментарий: Спасибо! хоть кто-то тут эксперт :))

Текст вопроса:

Уважаемые эксперты! Каким образом можно котроллировать набор текста в любом приложении из программы? Требуется получать набираемый на клавиатуре текст и выполнять его обработку... Например, как делает Punto Switcher? То-есть программе неважно, где мы набираем текст: в Word'е, в Блокноте, в Проводнике или ещё где - нужно перехватывать набор и при этом не подавлять его. Заранее благодарю за ответы.

Вопрос задал участник: Dron
Дата и время отправки вопроса: 03.06.2006, 19:14
Всего ответов: 2
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: bruder (статус: 2-ой класс), 03.06.2006, 19:57]:

Здравствуй, Dron!
Тебе придётся использовать DLL и "хуки".
Загрузив эту длл, (LoadLibrary('X:\Files\Delphi6\Bin\PS.dll');) она будет показывать коды нажатых клавиш.

Приложение:

Пример DLL: library PuSw; uses Windows, SysUtils; {$R *.res} var KHook: HHOOK; function KProc(Code: integer; wParam: Word; lParam: LongInt): LongInt; stdcall; const KState: integer = 1073741824; // 01000000000000000000000000000000 begin // в Win32 SDK рекомендуют делать такую проверку if not (Code=HC_ACTION) then begin Result:=CallNextHookEx(KHook, code, wParam, lParam); Exit; end; // отсеиваем лишние сообщения if (lParam and KState) <> 0 then begin Result:=CallNextHookEx(KHook, code, wParam, lParam); Exit; end; // анализируем код нажатой клавиши if wParam>0 then begin MessageBox(0,PChar(IntToStr(wParam)),'PS',0); end; Result:=CallNextHookEx(KHook, code, wParam, lParam);//Передаём пойманное другим хукам end; begin KHook:=SetWindowsHookEx(WH_KEYBOARD, @KProc, HInstance, 0); end.

Оценка за ответ: 4.
Комментарий: В принципе, всё работает, только хотел бы узнать, как передать wParam в само приложение? Например, записать в TMemo...

2. [Отвечает: Вадим К (статус: 6-ой класс), 05.06.2006, 10:34]:

А что же здесь передавать? С символами, здесь всё просто - просто делаете так
char(WParam mod 256).
Для функциональных клавиш используются старшие биты. Думаю теперь уже не будет проблем.
Замечу, что многие антивирусы/фаэрволы могут быть не равнодушными к вашему перехватчику клавиш. Это связано с тем, что этот метод используют многие кейлогеры, которые записывют нажатия ваших клавиш, когда вы вводите пароли и передают своим хозяевам.
Поэтому ваш перехвтчик может не работать или работать неустойчиво. Будьте внимательны.

Оценка за ответ: 4.
Комментарий: Спасибо за информацию.

Текст вопроса:

Я хочу сделать программу которая бы создавала различные компоненты по щелчку пользователя на форме в определённом месте. Мой вопрос: как сделать чтобы эти компоненты не "накладывались" друг на друга или же меняли свое местоположение после щелчка?

Приложение:

... var i,k,j:integer; Form1: TForm1; Checkboxes:array[1..500] of TCheckbox; obj1: string; p:tpoint; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin i:=1; end; procedure TForm1.Checkbox1Click(Sender: TObject); begin click_form('checkbox'); end; procedure TForm1.click_form(obj: string); begin obj1:=obj; end; procedure TForm1.FormActivate(Sender: TObject); begin panel1.Width:=form1.Width-10; panel1.Width:=form1.height-10; panel1.Left:=5; panel1.Top:=5; end; procedure TForm1.FormResize(Sender: TObject); begin panel1.Width:=form1.Width-20; panel1.height:=form1.height-56; panel1.Left:=5; panel1.Top:=5; end; procedure TForm1.Timer2Timer(Sender: TObject); begin panel1.Width:=form1.Width-20; panel1.height:=form1.height-56; panel1.Left:=5; panel1.Top:=5; end; procedure TForm1.Panel1Click(Sender: TObject); begin getcursorpos(p); if obj1='checkbox' then begin checkboxes[i]:=TCheckbox.create(panel1); checkboxes[i].name:='Checkbox'+inttostr(i); checkboxes[i].Parent:=panel1; checkboxes[i].Caption:='Ваш текст'; checkboxes[i].left:=p.x-form1.left-4; checkboxes[i].top:=p.y-form1.top-45; end; ... I:=I+1; end; end; end.

Вопрос задал участник: Александр
Дата и время отправки вопроса: 04.06.2006, 19:47
Всего ответов: 1
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: Вадим К (статус: 6-ой класс), 05.06.2006, 11:01]:

У компонента контейнера (тоесть компонента, на который вы ставите свой компонент, обычно форма) есть такое свойство как Controls[index:integer]:TControl. При добавлении вы в цикле просматриваете все компоненты и проверяете их координаты с текущим.

Текст вопроса:

Здравствуйте уважаемые эксперты. Подскажите пожалуйста как соеденить свое приложение с базой данных на другом компе (база-Paradox7, сеть-локалка) Заранее спасибо.

Вопрос задал участник: Меркулов А.С.
Дата и время отправки вопроса: 06.06.2006, 00:20
Всего ответов: 1
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: Помфюк Владимир Степанович (статус: 5-ый класс), 06.06.2006, 09:48]:

Paradox7 это просто набор файлов, тоесть никакая программа кроме собственно клиента базы данных не нужна. Чтобы работать по сети дайте доступ к папке с базой и подключите ее как диск на нужном компютере. Дальше - работайте как с локальными данными.

Оценка за ответ: 4.

Текст вопроса:

Как можно послать сообщение web-серверу без броузера, при этом изменяя свой ip на заданный?

Вопрос задал участник: Павел Томша
Дата и время отправки вопроса: 06.06.2006, 21:52
Всего ответов: 1
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: bruder (статус: 2-ой класс), 07.06.2006, 10:43]:

Здравствуйте, Павел.

Например с помощью компонента TClientSocket.

Приложение:

const WebServer = 'www.somehost.com'; WebPort = 80; PostAddr = '/cgi-bin/form'; ProxyServer ='proxy.somewhere.com'; ProxyPort = 3128; // В заголовке post необходимы некоторые данные HTTP_Data = 'Content-Type: application/x-www-form-urlencoded'#10+ 'User-Agent: Delphi/5.0 ()'#10+ 'Host: somewhere.com'#10+ 'Connection: Keep-Alive'#10; type TForm1 = class(TForm) private { Private declarations } HTTP_POST : string; FContent : string; // Эта переменная будет содержать ответ сервера FResult : string; public { Public declarations } end; { Эти функции сделают некоторое url-кодирование } { Например. 'John Smith' => 'John+Smith' } function HTTPTran(St: string): string; var i: Integer; begin Result:=''; for i:=1 to length(St) do if St[i] in ['a'..'z','A'..'Z','0','1'..'9'] then Result:=Result+St[i] else if St[i]=' ' then Result:=Result+'+' else Result:=Result+'%'+IntToHex(Byte(St[i]),2); end; procedure TForm1.ClientSocket1Write(Sender: TObject; Socket: TCustomWinSocket); begin // Постим данные Socket.SendText(HTTP_POST+FContent); end; procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); begin // Получаем результат FResult:=FResult+Socket.ReceiveText; end; procedure TForm1.ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket); begin // ЗДЕСЬ МОЖНО ОБРАБОТАТЬ FResult // end; procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin ErrorCode := 0; // Игнорируем ошибки end; { А эта подпрограмма, которую можно использовать для постинга данных формы. } procedure TForm1.PostTheForm; begin // Очищаем результаты FResult:=''; // Вы можете ввести поля формы, которые необходимы // Вот некоторые примеры: FContent:= 'Name='+ HTTPTran('John Smith') +'&'+ 'Address='+ HTTPTran('1 Waystreet') +'&'+ 'Email='+ HTTPTran('jsmith@somewhere.com') +'&'+ 'B1=Submit' + #10; // Вычисляем длину содержимого FContent:= 'Content-Length: '+IntToStr(Length(FContent))+#10+#10+FContent; {-- Начало прокси ---} ClientSocket1.Host := ProxyServer; ClientSocket1.Port := ProxyPort; HTTP_POST := 'POST http://'+WebServer+PostAddr+' HTTP/1.0'#10; {--- Конец прокси ---} // Соединяем заголовок HTTP_Post := HTTP_Post + HTTP_Data; // Пытаемся открыть соединение ClientSocket1.Open; end;

Оценка за ответ: 5.

Текст вопроса:

Здравствуйте. У меня ворпос как можно с помощю Deplhi сконвертировать png файл в ico. Может кто-то этим интерисовался. В нете рыскал, пока что не могу найти ничего по этому поводу

Вопрос задал участник: ya
Дата и время отправки вопроса: 07.06.2006, 10:51
Всего ответов: 1
Страница данного вопроса >>

Ответы на данный вопрос:

1. [Отвечает: Вадим К (статус: 6-ой класс), 07.06.2006, 13:13]:

Вариант а) Скачать по адресу http://www.winterdrache.de/freeware/png2ico/ прогу и посмотреть как это сделать.
Вариант б)Вначале конвертируем png -> bmp -> ico
правда бмп-шек будет две сама картинка и маска.
по поводу первого преобразования я не знаю, а по поводу второго
www.delphiworld.narod.ru/base\ico_to_bmp2.html
www.delphiworld.narod.ru/base\ico_to_bmp3.html
www.delphiworld.narod.ru/base\ico_to_bmp4.html

Компания "Microsoft" подписала контракт с американскими военными на разработку программного обеспечения для новых видов вооружений.

01.04.2002, 4:30. Саудовская Аравия. База ВВС США.

Лейтенант Джон Фолкон в последний раз махнул рукой товарищам и полез в кабину.
Его переполняло чувство гордости. Еще бы, ему доверена такая честь! Он узнал об этом от генерала Брейка, который сказал: "Вам доверена большая честь, лейтенант. Вы совершите первый боевой вылет на новейшем сверхсекретном самолете F-22M." ""M" означает "модифицированный"?" - уточнил Фолкон. ""M" означает "Microsoft", - ответил генерал. -Самолет полностью переоборудован этими ребятами. Они уверяют, что теперь боевые задачи сможет выполнять любой идиот. Но мы для первого раза выбрали вас, как одного из лучших наших пилотов. Вы должны будете уничтожить иракский ядерный центр." "Можете слать соболезнования Саддаму уже сейчас, сэр", - ответил Фолкон.
Лейтенант привычно защелкнул ремни и лишь тут обратил внимание, что приборная панель заметно отличается от стандартной. Приборов стало меньше, зато на освободившемся месте покоилась двухкнопочная мышь, почему-то металлическая.
Фолкон пожал плечами и включил общее питание.
На прозрачном лобовом экране, на фоне открывавшегося из кабины неба с редкими облаками, возникла надпись: Microsoft Winwars 2002. Затем сами собой заработали двигатели, и опустились во взлетное положение закрылки. "Поздравляем вас с приобретением Winwars 2002! - сообщил экран. -Теперь война станет намного более удобной, ваша убиваемость снизится, а поражаемость целей возрастет! Совет дня: перед посадкой выпускайте шасси."
-Орел-1, взлет разрешен, - раздалось в шлемофоне.
-Я еще не запрашивал, - удивился Фолкон.
-А вам и не нужно. Plug"n"Play, - пояснил наземный контроль.

Самолет, стремительно набирая скорость, помчался по полосе и скоро был уже в воздухе. "Сейчас Winwars 2002 произведет инсталляцию вашего боезапаса на выбранную цель, - сообщила система. -Выбранная цель: иракский ядерный центр".
Фолкон ради интереса кликнул по кнопке "изменить" и увидел длинный список, в котором среди прочих объектов по всему миру фигурировали Белый дом и база, с которой он только что вылетел. Фолкон поспешно нажал "отмена".
"Выберите тип инсталляции:
Минимальный - на объект будут сброшены только бомбы
Нормальный - на объект будут сброшены бомбы и ракеты
Полный - на объект будет сброшен самолет целиком"
По умолчанию система предлагала второй вариант, и Фолкон, опасливо покосившись на третий, решил с ней не спорить.
"Сейчас будет проведено тестирование производительности вашей машины. Закройте глаза, чтобы избежать повреждений при смене режимов".
Взревели на форсаже двигатели, и глаза Фолкона действительно едва не выскочили из орбит от чудовищной перегрузки. Начался настоящий ад: самолет швыряло во все стороны, он срывался в крутые пике и закладывал немыслимые виражи... Наконец лейтенант пришел в себя; темнота перед глазами развеялась, и он увидел, как мотавшаяся по всей кабине мышка вновь упала на свое место.
"Вы пользуетесь самолетом Lockheed F-22 с двумя двигателями Пратта-Уитни, -
невозмутимо сообщила система. -Максимальная скорость 1451 миля в час. Совет дня: не повышайте тактовую частоту турбины выше значения, указанного производителем.
Расчетное время инсталляции - 0:34:16."

:))