Вопрос № 95672: Помогите плиз.
Как написать приложение создающее сообщение для передачи с помощью MSMQ. Хоть какуюнить информацию подкиньте. очень нужно. ПАсиба....Вопрос № 95695: На ScrollBox-е несколько Panel. Когда курсор находится над Panel колесо не действует. Как это исправить?...Вопрос № 95697: Помогите, кто может! Скажите программные строчки для Delphi, чтобы программа сама создавала txt-файл, в который записывала бы содержимое окна ввода Edit1.
И чтобы программа сама могла бы перезаписывать этот файл, изменяя ее содержимое. Если кто знает...Вопрос № 95781: Здравствуйте уважаемые эксперты.
У меня вопрос такой : Программа заходит на url из базы адресов в текстовом файле.
Задача найти в теле страницы одно, единственное поле ввода <input ... с определенным именем name=... />, сравнить этот &q...Вопрос № 95783: Уважаемые Эксперты, возник следующий вопрос.
Создаю класс на основе TPanel, этот класс будет родителем еще для нескольких классов,
он просто задает начальные данные сходные для всех классов потомков.
Тут вроди бы все нормально созд...
Вопрос № 95.672
Помогите плиз.
Как написать приложение создающее сообщение для передачи с помощью MSMQ. Хоть какуюнить информацию подкиньте. очень нужно. ПАсиба.
Отправлен: 19.07.2007, 12:40
Вопрос задал: Ton (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Виктор Пырлик
Здравствуйте, Ton!
Возможно эта информация вам поможет, там же есть и исходники
http://www.osp.ru/win2000/2001/08/175133/
--------- Если ничего не помогло - надо читать инструкцию
Ответ отправил: Виктор Пырлик (статус: Студент)
Ответ отправлен: 19.07.2007, 13:29
Вопрос № 95.695
На ScrollBox-е несколько Panel. Когда курсор находится над Panel колесо не действует. Как это исправить?
Отправлен: 19.07.2007, 16:21
Вопрос задал: Gsa (статус: 3-ий класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Градов Юрий Михайлович
Здравствуйте, Gsa!
Попробуйте использовать следующее:
Приложение:
--------- Глаза боятся - руки делают!
Ответ отправил: Градов Юрий Михайлович (статус: Практикант)
Ответ отправлен: 19.07.2007, 19:45 Оценка за ответ: 5 Комментарий оценки: То что нужно. Спасибо
Вопрос № 95.697
Помогите, кто может! Скажите программные строчки для Delphi, чтобы программа сама создавала txt-файл, в который записывала бы содержимое окна ввода Edit1. И чтобы программа сама могла бы перезаписывать этот файл, изменяя ее содержимое. Если кто знает, напишите поподробнее, а то я пока в Delphi мало разбираюсь.
Отправлен: 19.07.2007, 16:24
Вопрос задал: Gektor707 (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Дмитрий С.
Здравствуйте, Gektor707!
Могу предположить, что есть некоторое событие, при котором используется значение из данного поля ввода. Так вот, можно приписать к этому событию следующие строки:
AppendFile(F); // Открытие файла для добавления записи
Writeln(значение_из_строки_ввода, F); // Собственно добавление значения.
Close(F);
В глобальных переменных нужно описать переменную:
F: text; // текстовый файл
Переменную F в начале программы (к примеру по событию OnCreate Формы) нужно инициализировать следующим образом:
AssignFile(f, 'путь_к_файлу'); // "Сопоставить" переменной F конкретный файл
In Not fileExist('путь_к_файлу') then Rewrite(f) // Если файл не существует,то создать его
else Reset(f); // если существует - открыть для чтения/записи
УДАЧИ !!
ЗЫ: Наши программисты самые программистые программисты... :))
--------- Наши программисты самые программистые программисты!..
Ответ отправил: Дмитрий С. (статус: 3-ий класс)
Ответ отправлен: 19.07.2007, 16:48
Отвечает: Yumark
Здравствуйте, Gektor707!
посмотри здесь:
http://delphiworld.narod.ru/base/simple_db_write_to_file.html
- очень простой пример, почти то, что вам нужно
если хочешь не дописывать в конец файла, а заново пересоздавать файл, то в процедуре TForm1.FormActivate вместо Rewrite поставь Reset.
Ответ отправил: Yumark (статус: 1-ый класс)
Ответ отправлен: 19.07.2007, 16:54
Отвечает: Виктор Пырлик
Здравствуйте, Gektor707!
procedure TForm1.Button1Click(Sender: TObject);
var f:TextFile;
s:String;
begin
s := Edit1.Text;
AssignFile(f,'myfile.txt');//связываем переменую f с файлом myfile.txt
ReWrite(F); // открываем файл - создаем или перезаписываем
Writeln(F,s); // записываем значение
CloseFile(F); // закрываем файл
end;
procedure TForm1.LoadClick(Sender: TObject);
var f:TextFile;
s:String;
begin
AssignFile(f,'myfile.txt'); //связываем переменую f с файлом myfile.txt
Reset(F); // открываем файл - если его нет - будет ошибка
Readln(F, s); // читаем файл
Edit1.Text := S;
CloseFile(F); // закрываем файл
end;
--------- Если ничего не помогло - надо читать инструкцию
Ответ отправил: Виктор Пырлик (статус: Студент)
Ответ отправлен: 19.07.2007, 17:44
Вопрос № 95.781
Здравствуйте уважаемые эксперты.
У меня вопрос такой : Программа заходит на url из базы адресов в текстовом файле.
Задача найти в теле страницы одно, единственное поле ввода <input ... с определенным именем name=... />, сравнить этот "name=... " с существующей базой значений, находящихся в другом текстовом файле. Если НЕ нашел, текущий url записывается в третий txt файл, нашел - переход к следующему url. Плюс предпологается многопоточность.
Буду очень признателен за любые советы и помощь.
В приложении привожу пример функции, которая может Вам помочь.
Что делает функция:
1. скачивает страницу из интернета по указанному адресу (fileURL).
2. Находит первое вхождение <input на данной странице. Причем input регистро-независимый (т.е. не важно строчными или прописными буквами он написан).
3. Находит в тэге input параметр name.
3.1. Если после name= стоят кавычки (двойные или одинарные), то оставляет только текст внутри.
3.2. Если нет кавычек, то оставляет только текст до первого пробела
3.3. Если нет ни 3.1, ни 3.2, то удаляем только окончание (либо />, либо >) и оставляем текст внутри.
4. Сравнивает Name с тем name, который скачан с сайта и возвращает результат: True, если совпало, False - если не совпало. Сравнение Name производится регистро-зависимое.
Остальное за малым - организуете чтение первого и второго файла. В качестве первого параметра функции указываете считанную строку из первого файла (база url). В качестве второго - из второго (база значений).
Далее если функция вернула False, то записываете url в третий файл.
Удачи!
Приложение:
Ответ отправил: Denisss (статус: Профессионал) Россия, Москва WWW:Хлама много, по сути ничего... ---- Ответ отправлен: 21.07.2007, 12:00 Оценка за ответ: 5 Комментарий оценки: Благодарю Вас! Буду разбираться.
Вопрос № 95.783
Уважаемые Эксперты, возник следующий вопрос.
Создаю класс на основе TPanel, этот класс будет родителем еще для нескольких классов,
он просто задает начальные данные сходные для всех классов потомков.
Тут вроди бы все нормально создается без проблем.
Загвоздка в другом, мне нужно в этом втором классе потомке (на его панели) создать некоторые Контролы
например кнопку, и вот тут возникает вопрос а какой Parent присвоить кнопке ? ведь в классе нет возможности
указать как в программе
Parent:=Form1;
Тут Form1 просто нет, да и других визуальных компонентов тут нет.
Прикладываю оба класса помогите плиз.
Приложение:
Отправлен: 20.07.2007, 12:28
Вопрос задал: Кэр Лаэда (статус: Студент)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 5)
Отвечает: Denisss Здравствуйте, Кэр Лаэда!
Визуальный компонент есть - это сама панель, которую Вы создаете.
А для Parent используйте Self: Button.Parent:= Self;
Self можно использовать и при размещении компонентов на форме (вместо Form1). Тогда, если Вы захотите переименовать форму, не надо будет делать изменений в коде.
Ответ отправил: Denisss (статус: Профессионал) Россия, Москва WWW:Хлама много, по сути ничего... ---- Ответ отправлен: 20.07.2007, 12:44 Оценка за ответ: 4 Комментарий оценки: Пробовал такое посмотрите в минифорум
Отвечает: Лукьяненко Алексей Валериевич
Здравствуйте, Кэр Лаэда!
Используйте указатель на текущий экземпляр класса (Self)
begin
BB:=TButton.Create(AOwner);
BB.Parent:= Self;
Дополнительно советую Вам в конструкторе базоваго класса строку
Parent:=AOwner as TScrollBox;
исправить на
Parent:=AOwner as TWinControl;
Так универсальнее. Впрочем, необходимость этого уже зависит от Вашей задачи
Ответ отправил: Лукьяненко Алексей Валериевич (статус: 9-ый класс)
Ответ отправлен: 20.07.2007, 12:47 Оценка за ответ: 4 Комментарий оценки: Пробовал такое гляньте в минифорум
Отвечает: Виктор Пырлик
Здравствуйте, Кэр Лаэда!
Возможно это решение.
------------------------
QStdCtrls,QExtCtrls заменил на StdCtrls т.к. производный класс от TPanel, следовательно можно наследовать его (делать родителем)
Приложение:
--------- Если ничего не помогло - надо читать инструкцию
Ответ отправил: Виктор Пырлик (статус: Студент)
Ответ отправлен: 20.07.2007, 12:57 Оценка за ответ: 5 Комментарий оценки: Супер... точно все пошло...
