Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на C++ Builder / Delphi

Выпуск № 260
от 17.12.2003, 12:30

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 1188
Отправлено ответов: 2479
Активность: 208.6 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

vitya
Статус: Профессиональный
Общий рейтинг: 108.18
[Подробней >>]
fC
Статус: Опытный
Общий рейтинг: 153.04
URL: Просто :)
[Подробней >>]
Andy
Статус: Опытный
Общий рейтинг: 101.5
[Подробней >>]
 
Boriss
Статус: Опытный
Общий рейтинг: 148.72
URL: Программирование на Паскале
[Подробней >>]
sir henry
Статус: Профессиональный
Общий рейтинг: 159.3
[Подробней >>]
CJ
Статус: Опытный
Общий рейтинг: 123.62
URL: Мой персональный сайт! Зайдите и не пожалеете!
[Подробней >>]
 
Case_X
Статус: Начальный
Общий рейтинг: 127.9
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 1173. Ой блин!!!! Что не понятного! Ну допустим я какой-то файлю напримр 123.zip, добалюя в ресурсы проект... (ответов: 3)
Вопрос № 1174. здравствуйте уважаемые эксперты. подскажите как можно данные с одной формы в ставить в другую форму.... (ответов: 4)
Вопрос № 1175. Здраствуйте эксперты. Спасибо за ответы № 1172 Delphi (2 формы+TSaveDialog ) Ответ: разобрался,выно... (ответов: 1)
Вопрос № 1176. Приветствую ЭКСпертов! Подскажите пожалуйста, как можно встроить свои пункты в контекстное меню спра... (ответов: 1)
Вопрос № 1178. Вопрос таков! Мне нужно найти в exe-файле строку 0C8000h, а потом с данного места сохранить все то, ... (ответов: 3)
Вопрос № 1179. Уважаемые эксперты, помогите. Работаю с Buider 5. Нужен код который бы позволял копировать файл с СD... (ответов: 1)

Вопросов: 6, ответов: 13


 Вопрос № 1173

Ой блин!!!! Что не понятного!
Ну допустим я какой-то файлю напримр 123.zip, добалюя в ресурсы проекта! Понятно?
Потом мне этот файл надо извлечь из exe-файла на диск! Надо и все! Что непонятного?
И не шлите плиз ответов типа Поясни вопрос, или что такое манифест, или А нельзя ли сразу копировать!



Вопрос отправлен: 12.12.2003, 21:17
Отправитель: Кирилл

[Следующий вопрос >>] [Список вопросов]

Отвечает vitya

Приветствую Вас, Кирилл!
Скорее всего LoadResource и остальные функции иже с ним тебе понадобятся. После всех манипуляций с HGLOBAL, GlobalLock и так далее у тебя будет или указатель или CMemFile (что сомнительно :) ). Потом эти данные записываешь на ХДД.

Ответ отправлен: 13.12.2003, 11:16
Отправитель: vitya


Отвечает fC

Нервные клетки не восстанавливаются, не нервничайте так, Кирилл! :) Все Вас прекрасно поняли и сейчас Вам ответят :)
Итак (с), накопал кое-что для Вас:
1. Пишем в блокноте RC-файл, куда прописываем все нужные нам программы, например:
ARJ EXEFILE C:UTILARJ.EXE
2. Компилируем его в ресурс при помощи Brcc32.exe. Получаем RES-файл.
3. Далее в тексте нашей программы:
implementation
{$R *.DFM}
{$R test.res} //Это наш RES-файл
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
// Записывает в текущую папку arj.exe
ExtractRes('EXEFILE', 'ARJ', 'ARJ.EXE');
end;
И все дела, и стоило так нервничать? ;)
Удачи!

Ответ отправлен: 12.12.2003, 23:38
Отправитель: fC


Отвечает Andy

Приветствую Вас, Кирилл!
Нужно создать resource script file (*.RC) с помощью простого текстового файла (например блокнота), и вписать всего одну строку:
1 RCDATA "123.zip"
Единичка - это просто номер ресурса, RCDATA - определяет, что мы имеем дело с user-defined resource. Последнее - имя файла.
Компилируем его в .RES файл, при помощи BRCC32.EXE. В MS-DOS набираем:
BRCC32 123.RC
Это должно создать файл 123.RES.
Добавляем директиву компилятор в исходный код нашей программы. Она должна следовать за директивой формы, как показано здесь:
{$R *.DFM}
{$R 123.RES}
Добавляем следующую процедуру в программу:
procedure LoadfromEXE;
var
ResStream : TResourceStream; // Resource Stream
begin
ResStream := nil;
try
ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
ResStream.SaveToFile(FileName);
finally
ResStream.Free;
end;
end; // procedure

Ответ отправлен: 15.12.2003, 09:43
Отправитель: Andy


 Вопрос № 1174

здравствуйте уважаемые эксперты. подскажите как можно данные с одной формы в ставить в другую форму. например: текст из компанента мемо с одной формы записать в мемо другой формы.



Вопрос отправлен: 12.12.2003, 23:52
Отправитель: евгений (zharkov_evgenii@mail.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает Boriss

Приветствую Вас, евгений!
Какие проблемы, смотри стандартный пример по TMemo - Lines - LoadFromFile (SaveToFile) или LoadToStream / SaveToStream.
Второй вариант предпочтительнее
Нужно только не забыть модуль со второй формой упомянуть в USES первой.

Ответ отправлен: 15.12.2003, 18:15
Отправитель: Boriss


Отвечает sir henry

Приветствую Вас, евгений!
В разделах implementation Uses каждой из форм должен быть упомянут модуль другой формы, к которой он будет обращаться. Тогда можно будет сделать следующее:
Form2.Memo2.Lines:=Form1.Memo1.Lines;

Ответ отправлен: 15.12.2003, 04:05
Отправитель: sir henry


Отвечает fC

Здравствуйте, евгений!
Текст можно скопировать так: Form2.Memo1.Text:=Memo1.Lines.Text;
Удачи!

Ответ отправлен: 13.12.2003, 00:12
Отправитель: fC


Отвечает CJ

Доброе время суток, евгений!
Например на одной форме ставинь кнопку, а в ней код типа
Form2.memo1.text:=form1.memo1.text;

Ответ отправлен: 14.12.2003, 13:22
Отправитель: CJ


 Вопрос № 1175

Здраствуйте эксперты.
Спасибо за ответы № 1172 Delphi
(2 формы+TSaveDialog )
Ответ:
разобрался,выносил TsaveDialog в dll-так же.
Вобщем я писал по обычному так
type
SysListView32 = class(TStringGrid)
...
end;
var
LS:SysListView32;
делал
LS:=SysListView32.create(self);
...parent
после создания LS - TSaveDialog неработает,
не помогает и LS.free;
Проблема решается - убрать 32,типа SysListView = class
Cтранно?
Вопрос ,почему не работает функция-Project-Options-'Version..Inc build'-
при каждой компиляции - инкримирует билд.
Delphi4, и в 5 неработат.А то надо.Спасибо.




Вопрос отправлен: 13.12.2003, 01:47
Отправитель: AllDer

[Следующий вопрос >>] [Список вопросов]

Отвечает fC

Добрый день, AllDer!
Да и в Delphi 7 она работает оригинальным способом, значение инкрементируется тогда, когда повторно вызываешь диалог Options и то не всегда :)

Ответ отправлен: 13.12.2003, 22:59
Отправитель: fC


 Вопрос № 1176

Приветствую ЭКСпертов!
Подскажите пожалуйста, как можно встроить свои пункты в контекстное меню справки, например как у htm2chm.
И еще: можно ли задавать прозрачность таким элементам как кнопочки, текстовые поля, списки и т.д. с изменением степени прозрачности?



Вопрос отправлен: 13.12.2003, 11:26
Отправитель: D.M. (autoruner@mail.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает Case_X

пџяЂпёпІпµя‚яЃя‚пІяѓяЋ п’п°яЃ, D.M.!
D.M>п пµя‰пµ: пјпѕп¶пЅпѕ п»пё п·п°пґп°пІп°я‚яЊ пїяЂпѕп·яЂп°я‡пЅпѕяЃя‚яЊ я‚п°пєпёпј яЌп»пµпјпµпЅя‚п°пј D.M>пєп°пє пєпЅпѕпїпѕя‡пєпё, я‚пµпєяЃя‚пѕпІя‹пµ пїпѕп»яЏ, яЃпїпёяЃпєпё пё я‚.пґ. яЃ пёп·пјпµпЅпµпЅпёпµпј D.M>яЃя‚пµпїпµпЅпё пїяЂпѕп·яЂп°я‡пЅпѕяЃя‚пё?
пќп°яЃпєпѕп»яЊпєпѕ яЏ п·пЅп°яЋ яЃя‚п°пЅпґп°яЂя‚пЅя‹пј пµп»пµпјпµпЅя‚п°пј пЅпµп»яЊп·яЏ! пќпѕ пјп¶пЅпѕ пЅп°пїпёяЃп°я‚яЊ яЃпІпѕпё пєпѕпјпїпѕпЅпµпЅя‚я‹ пёп»пё пёяЃпїпѕп»яЊп·пѕпІп°я‚яЊ яѓп¶пµ пЁпѕя‚пѕпІя‹пµ пґпѕпїпѕп»пЅпёя‚пµп»яЊпЅя‹пµ! (п“пґпµ яЃпєп°я‡п°я‚яЊ пє яЃпѕп¶пµп»пµпЅпёяЋ пїпѕпґяЃпєп°п·п°я‚яЊ пЅпµ пјпѕпЁяѓ пїпѕпєп° )

Ответ отправлен: 13.12.2003, 13:44
Отправитель: Case_X


 Вопрос № 1178

Вопрос таков!
Мне нужно найти в exe-файле строку 0C8000h, а потом с данного места сохранить все то, что после это строки
в другой файл!



Вопрос отправлен: 13.12.2003, 21:14
Отправитель: Кирилл

[Следующий вопрос >>] [Список вопросов]

Отвечает Boriss

Доброе время суток, Кирилл!
Открыть файл как нетипизированный, открыть с длиной записи 1.Прочитать в буфер BlockRead. Найти символы и затем, записать BlockWrite. Как пользоваться ими см. в приложении

Приложение:

Ответ отправлен: 15.12.2003, 17:50
Отправитель: Boriss


Отвечает fC

Доброе время суток, Кирилл!
Держи примитивный примерчик поиска двойного слова 000C8000h и последующего копирования.
Удачи!

Приложение:

Ответ отправлен: 14.12.2003, 21:31
Отправитель: fC


Отвечает Case_X

пџяЂпёпІпµя‚яЃя‚пІяѓяЋ п’п°яЃ, пљпёяЂпёп»п»!
пЎя‚яЂпѕпєяѓ пёп»пё п‘п°п№я‚ 0C8000h???


Ответ отправлен: 13.12.2003, 23:56
Отправитель: Case_X


 Вопрос № 1179

Уважаемые эксперты, помогите.
Работаю с Buider 5. Нужен код который бы позволял копировать файл с СD в
определенную директорию. Код с испльзованием SHFILEOPSTRUCT не работает.
Хотелось бы, чтобы код был работоспособен как и в Win98 так и в Win2000/XP.
Спасибо.



Вопрос отправлен: 13.12.2003, 23:39
Отправитель: Annet

[Следующий вопрос >>] [Список вопросов]

Отвечает fC

Приветствую Вас, Annet!
Kernel32.dll
BOOL CopyFileA(
LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);
Удачи!

Ответ отправлен: 14.12.2003, 12:46
Отправитель: fC



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (26)
C / C++ (18)
Perl (3)
Builder / Delphi (20)
Pascal (20)
Basic / VBA (4)
Java / JavaScript (6)
PHP (13)
Криптография (8)
WinAPI (10)
Пользователю
Windows 95/98/Me (38)
Windows NT/2000/XP (54)
"Железо" (26)
Поиск информации (18)
Администратору
Windows NT/2000/XP (27)
Linux / Unix (14)
Юристу
Гражданское право (12)
Семейное право (8)
Трудовое право (9)
КоАП (8)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.


Яндекс цитирования
© 2001-2003 Россия, Москва. Авторское право: Калашников О.А.

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное