Вопрос № 63732: Здравствуйте! Подскажите, пожалуйста, как из Richedit вставить данные в ячейки Excel? Задача такая: данные(числа) выводятся в Richedit, а после мне нужно из компилятора открыть Excel, создать книгу и ввести в определенные ячейки данные. Как это сдела...Вопрос № 63747: Уже задавал вопрос по поводу получения содержимого тегов в тексте документа через WebBrowser, получил ответ, но слишком поздно смог проверить...
Такой вариант
var
tagsU: variant;
i: integer;
begin
tagsU := WebBrowser1.Ol...Вопрос № 63755: Уважаемые эксперты! Не могли бы вы показать на примере пример работы с функцией BlockRead и с классом TFileStream на следующем примере: Есть некий бинарный файл FileVar: file у которого
type
TZag = record //структура заголовка длинной 8 бай...
Вопрос № 63.732
Здравствуйте! Подскажите, пожалуйста, как из Richedit вставить данные в ячейки Excel? Задача такая: данные(числа) выводятся в Richedit, а после мне нужно из компилятора открыть Excel, создать книгу и ввести в определенные ячейки данные. Как это сделать? Можно ли где раздобыть документацию по работе с Excel? Спасибо
Отправлен: 22.11.2006, 16:10
Вопрос задал: Oricardo (статус: 1-ый класс)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Мишин Михаил
Здравствуйте, Oricardo!
Пример в приложении. В ячейку А1 вставляется содержимое Edit1.
Из Richedit вставлять ИМХО извращение.
А вот хорошая книжка по работе с Word и Excel:
Василий Корняков. Программирование документов и приложений MS Office в Delphi
Достать ее можно здесь:
http://www.c-books.info/books/load.php?ty=delphi
А вот сайт ее автора, там же несколько статей из нее:
http://www.kornjakov.ru/stat.htm
Приложение:
Ответ отправил: Мишин Михаил (статус: 1-ый класс)
Ответ отправлен: 22.11.2006, 17:50
Отвечает: Писарев, Павел, Юрьевич
Здравствуйте, Oricardo!
Описывать это очень долго. Рекомендую почитать книгу Василия Корнякова "Программирование документов и приложений MS OFFICE в DELPHI", там всё очень хорошо описано.
Ответ отправил: Писарев, Павел, Юрьевич (статус: 1-ый класс)
Ответ отправлен: 23.11.2006, 04:37
Вопрос № 63.747
Уже задавал вопрос по поводу получения содержимого тегов в тексте документа через WebBrowser, получил ответ, но слишком поздно смог проверить...
Такой вариант
var
tagsU: variant;
i: integer;
begin
tagsU := WebBrowser1.OleObject.document.all.tags('u');
for i := 1 to tagsU.Length-1 do
ListBox1.AddItem(tagsU.item(i)..innerText,nil);
Отвечает: Сухомлин Кирилл Владимирович
Здравствуйте, Mini Cooper!
Создаете новый проект, кидаете на форму кнопку, ListBox и броузер. Последний переименовываете в WB. Добавляете пару событий и доводите текст до того, чтобы он стал таким же, как в примере. Должно работать. У меня работает.
Скорей всего, проблема в том, что вы пытаетесь прочесть какую-то информацию, еще не загрузив ее в броузер. Используйте проверку на непустоту содержимого или блок try/except
Приложение:
--------- Не узнаешь - не попробуешь.
Ответ отправил: Сухомлин Кирилл Владимирович (статус: Практикант)
Ответ отправлен: 23.11.2006, 00:39 Оценка за ответ: 5 Комментарий оценки: Этот пример сначала тоже не работал (тем временем сам пытался найти решение). Оказалось, что такие теги, как Текст, не обрабатываются, если лежат внутри сложных структур. Т.к. тестовая страница содержала много , была выбрана именно она. Но я не учёл, что у неё довольно сложная структура, построенная с помощью таблиц и div-ов. Простой документ
(или даже не слишком сильно вложенные друг в друга таблицы) обрабатываются на ура. Большое спасибо!
Отвечает: PaVeL_Ekt
Здравствуйте, Mini Cooper!
цикл должен начинаться с 0 !!!
--------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL
Ответ отправил: PaVeL_Ekt (статус: 5-ый класс)
Ответ отправлен: 23.11.2006, 07:08
Вопрос № 63.755
Уважаемые эксперты! Не могли бы вы показать на примере пример работы с функцией BlockRead и с классом TFileStream на следующем примере: Есть некий бинарный файл FileVar: file у которого
type
TZag = record //структура заголовка длинной 8 байт
param1:char; //4 байта
param2:word; //2 байт
param3:cardinal;//4 байта
end;
необходимо открыть файл и прочитать заголовок в параметры
Отправлен: 22.11.2006, 19:24
Вопрос задал: Delphi-n (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: monah
Здравствуйте, Delphi-n!
Смотрите приложение.
Для чтения из потока применяется не BlockRead, а Read и ReadBuf
Приложение:
--------- festina lente
Ответ отправил: monah (статус: Студент)
Ответ отправлен: 22.11.2006, 19:48
Отвечает: Маренич Владимир
Здравствуйте, Delphi-n!
var
F: file;
Z: TZag;
begin
AssignFile(F, 'c:filename.bin');
Reset(F,1);
try
BlockRead(F, Z, SizeOf(Z));
except
CloseFile(F);
end;
end;
Вот только заголовок у Вас не 8 байт, а 10 :)
Ответ отправил: Маренич Владимир (статус: Студент)
Ответ отправлен: 23.11.2006, 02:24
