/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 642
от 06.11.2006, 11:05

Вопрос № 60.787

Привет, всем! Подскажите как вывести значение в таблицу Word из Delphi. Я делаю так: W:=CreateOleObject ('Word.Application'); if not OpenDialog2.Execute then exit; W.Documents.Open (OpenDialog2.FileName); MyRange:=W.ActiveDocument.Range (W.ActiveDocument.Range.End-1, W.ActiveDocument.Range.End-1); W.ActiveDocument.Tables.Add (Range:= MyRange, NumRows:=2, NumColumns:=2); W.ActiveDocument.Tables.Cell(1,1).Range.Text:='asdfa'; W.Visible:=True; Выдает ошибку: Project Project4.exe raised exception class EOleError with message 'Method 'Cell' not supported by automation object'. И еще один вопросик. Когда вывожу в Word несколько таблиц они сливаются в одну. Пыталась выводить через пробел: W.ActiveDocument.Tables.Add (Range:= MyRange, NumRows:=2, NumColumns:=2); MyRange.InsertAfter(' '); все равно сливаются в одну таблицу. Как этого можно избежать? Заранее всем спасибо...

Отправлен: 31.10.2006, 16:36 Вопрос задала: Артемова Марина (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Gladiator Здравствуйте, Артемова Марина! Я думаю, что нужно указать номер таблицы, например, так: W.ActiveDocument.Tables(1).Cell(1,1).Range.Text:='asdfa';

Ответ отправил: Gladiator (статус: 5-ый класс) Ответ отправлен: 31.10.2006, 16:56

Отвечает: sir henry Здравствуйте, Артемова Марина! По второму вопросу. Нужно вставить не пробел, а новый параграф, чтобы между таблицами пустая строка была. Тогда таблицы не будут сливаться друг с другом. Selection.TypeParagraph; Selection.TypeParagraph; Здесь вставляются две пустые строчки.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 31.10.2006, 17:19

Отвечает: Sattar Здравствуйте, Артемова Марина! 1.W.ActiveDocument.Tables.Item(1).Cell(1,1).Range.Text:='sdhsd';

Ответ отправил: Sattar (статус: 2-ой класс) Ответ отправлен: 31.10.2006, 23:15

Вопрос № 60.796

Здраствуйте! Подскажите как можно уменьшить количество цветов у картинки до Х. Тоесть есть картинка 32bit с 7256 цветами(используются в ней) нужно уменьшить скажем до 1000 или 500 и т.д. А так же алгоритмы уменьшения и увелечения(Бикубический и билинейный) размеров изображения с наименьшей потерей качества.

Отправлен: 31.10.2006, 18:21 Вопрос задал: chikanok (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, chikanok! Вот ссылки как раз по вашим вопросам: http://algolist.manual.ru/graphics/quant/index.php http://alglib.sources.ru/interpolation/bicubicresample.php http://alglib.sources.ru/interpolation/bilinearresample.php --------- Не узнаешь - не попробуешь.

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Практикант) Ответ отправлен: 31.10.2006, 23:45

Вопрос № 60.807

Здравствуйте уважаемые эксперты! Я пытаюсь определить скорость скачивания программы через WinInet. я нашёл такой код, var Elapsed: string; _Speed: double; Speed: string; FStarttime:tdatetime; begin if FStarttime <> 0 then Elapsed := TimeToStr(FStartTime - Now) else Elapsed := ''; _Speed := FBuf / (Now - FStarttime) * SecsPerDay * 1000; Speed := FloatToStr(_Speed); Speed := Copy(Speed, 1, Pos(Decimalseparator, Speed) + 2) + ' kb/sec'; на мой взгляд теоретически он должен подойти, но я не знаю как его присоединить к procedure TForm1.N1Click(Sender: TObject); var HInet, hURL: HINTERNET; ReadLen: Cardinal; FBuf: array[1..1024] of Byte; F: File; lt, Header, cop:string; err:boolean; filename:string; Begin timer1.Enabled:=true; RestartPos := 0; FSize := GetInetFileSize(Edit1.Text); If FileExists('C:'+filename ) Then Begin AssignFile(f, 'C:'+filename ); Reset(F, 1); RestartPos := FileSize(F); Seek(F, FileSize(F)); End Else begin AssignFile(f, 'C:'+filename ); ReWrite(f, 1); End; HInet := InternetOpen(NIL, PRE_CONFIG_INTERNET_ACCESS, NIL, NIL, 0); Header := 'Accept: */*'; HURL := InternetOpenURL(HInet, PChar(Edit1.Text), PChar(Header), StrLen(PChar(Header)), 0, 0); If RestartPos > 0 Then Begin InternetSetFilePointer(HURL, RestartPos, NIL, 0, 0); ProgressBar1.Min := 0; ProgressBar1.Max := FSize; ProgressBar1.Position := RestartPos; End Else Begin ProgressBar1.Min := 0; ProgressBar1.Max := FSize; End; while (ReadLen <> 0) and (Stop = False) do begin err:= InternetReadFile(HURL, @FBuf, SizeOf(FBuf), ReadLen); IF err= false then begin //Îøèáêà ÷òåíèÿ ShowMessage ('Ïðîèçîøåë îáëîì :('); //Ñîîáùèì è âûõîäèì exit; end; BlockWrite(F, FBuf, ReadLen); RestartPos := FileSize(F); ProgressBar1.Position := RestartPos; Application.ProcessMessages; End; InternetCloseHandle(HURL); InternetCloseHandle(HInet); CloseFile(F); end;

Отправлен: 31.10.2006, 20:16 Вопрос задал: Evgh (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PaVeL_Ekt Здравствуйте, Evgh! Попробуй следующий код, если что пиши на почту или в пейджер... Приложение: var GlobRead:integer; ... GlobRead:=0; if FStarttime <> 0 then Elapsed := TimeToStr(FStartTime - Now) else Elapsed := ''; while (ReadLen <> 0) and (Stop = False) do begin err:= InternetReadFile(HURL, @FBuf, SizeOf(FBuf), ReadLen); GlobRead:=GlobRead+ReadLen; _Speed := GlobRead / (Now - FStarttime) * SecsPerDay * 1000; Speed := FloatToStr(_Speed); Speed := Copy(Speed, 1, Pos(Decimalseparator, Speed) + 2) + ' kb/sec'; StaticText1.caption:=speed; IF err= false then begin ShowMessage ('Ïðîèçîøåë îáëîì :('); exit; end; BlockWrite(F, FBuf, ReadLen); RestartPos := FileSize(F); ProgressBar1.Position := RestartPos; Application.ProcessMessages; End; --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 5-ый класс) Ответ отправлен: 01.11.2006, 07:30

Вопрос № 60.814

Здравствуйте Уважаемые Эксперты!!!! Подскажите пожалуйста, где можно скачать free компоненты на Delphi 7 Конкретно интересуют компонет DBGrid-более изящный, чем стандартный, с возможностью самому настраивать вид. А также кнопки, меню, тулбары и т.д. в стиле Office 2003 или что-то подобно... Заранее благодарен, Надеюсь на вашу помощь!!!

Отправлен: 31.10.2006, 21:13 Вопрос задал: Andrey_666 (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Sattar Здравствуйте, Andrey_666! http://www.tmssoftware.com/

Ответ отправил: Sattar (статус: 2-ой класс) Ответ отправлен: 31.10.2006, 21:44 Оценка за ответ: 5

Отвечает: sir henry Здравствуйте, Andrey_666! Можно, например, здесь: http://www.torry.net

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 01.11.2006, 04:52 Оценка за ответ: 5

Отвечает: Rusland Здравствуйте, Andrey_666! Лучшим dbgrid-ом на сегодняшний день считается DBGridEh. Бесплатно скачать его можете на http://ehlib.com/RUS/default.htm --------- Если партия скажет есть контакт, будем есть контакт.

Ответ отправил: Rusland (статус: Специалист) Ответ отправлен: 01.11.2006, 17:50 Оценка за ответ: 5

Вопрос № 60.831

Здравствуйте уважаемые.. подскажите пожалуйсто, где можно найти документацию на русском языке по работе с MS WORD и MS EXCEL. И еще, почему в данном коде (к примеру): V: variant; begin v:=CreateOleObject('Excel.Application'); v.Workbooks. ..... после точки не отображаются так называемые подсказки (список событий и методов)? Спасибо за уделенное время.

Отправлен: 31.10.2006, 23:59 Вопрос задал: Глеб (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: sir henry Здравствуйте, Глеб! Документацию на русском можно найти в книгах. Если же Вас интересует как из Дельфи использовать Word-Excel, то загляните на сайт www.delphikingdom.com. Кроме того крайне полезно купить книгу по использованию VBA в MS Office. Там описывается тоже самое и примеры довольно легко портировать в Дельфи. Подсказки возникают только тогда, когда Вы пользуетесь готовым компонентом, а он у Вас создается уже во время работы программы. Хотите подсказок, используйте готовые компоненты с вкладки компонентов Servers. На этапе изучения работы с Word-Excel это будет наиболее полезно. Вместо v: variant, лучьше используйте v: OleVariant;

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 01.11.2006, 05:07

Отвечает: PaVeL_Ekt Здравствуйте, Глеб! Впринципе на сайте королевства делфи (http://www.delphikingdom.com/) по Екселю и ворду много статей было. по второму вопросу подсказать не могу, т.к. я пользовался серверами TWORDApplication и TEXCELApplication, а с ними у меня проблем не было. --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 5-ый класс) Ответ отправлен: 01.11.2006, 07:45

Вопрос № 60.844

Здравствуйте! Помогите, пожалуйста, у меня файл с расширением “*.ama” закодирован двоичным способом, вот так он выглядит если этот файл открыть блокнотом ‘И W ^н –щJ’, как считать файл в формате (8-bit или 16-bit), возможно я не корректно задал вопрос если это так то поправьте, буду рад и благодарен любой помощи в этом вопросе.

Отправлен: 01.11.2006, 06:11 Вопрос задал: Майтдинов Рашит (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: PaVeL_Ekt Здравствуйте, Майтдинов Рашит! Скорее всего в файле используется DOS кодировка, но может быть и уникод. просто выполняй считывание с помощью BlockRead Эта функция считывает каждый байт и заносит в буффер. далее с этим байтом можно делать что угодно !!! и посмотри таблицу символов ASCII там представленны символы, и их цифровые значения например A = 65, DOS символы тоже записаны в этой таблице но в виндовской кодировке отображаються по другому. получить символ из таблицы ASCII по коду можно нажать и удерживать ALT и набрать код на дополнительной цифровой клаве !!! (до 33 идут непечатаемые символы (up, down, space, enter, backspace и т.д.) посему надо сравнивать исходный текст и получаемое значение. ниже пример использования блокрида. Пиши на пейджер если-что !!! P. S. Тебе могут еще понадобится след. функции CHR - Преобразует код символа в символ ORD - Преобразует символ в его код Приложение: Var F: File; Buf: Array [1..1024] of byte; Rd, Wr: Integer; Begin Assignfile(F,'c:...e-be.ama'); Reset(F, 1); Repeat BlockRead(F, Buf, SizeOf(Buf), Rd); //любые действия по работе с массивом Until Rd<1; Closefile(f); --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 5-ый класс) Ответ отправлен: 01.11.2006, 07:09 Оценка за ответ: 4

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Майтдинов Рашит! Видно, что это не юникод. Функции в Delphi для преобразования юникода в 8-битную кодировку ANSIToUTF (или ANSIToUTF8) и, соотв. UTFToANSI (или UTF8ToANSI). "Или" означает, что я точно не помню, а не то, что, у функции 2 имени =) Скорей всего, в файле не текстовые данные. А ваша проблема в заблуждении из-за однокоренных слов. 1) кодировка символа - просто вариант представления текстовых данных. Сделана вовсе не для того, чтобы скрыть от кого-либо данные. 2) кодирование файла - его шифрование. Служит как раз для того, чтобы не дать доступ к информации посторонним лицам. А в данном сулчае у вас, скорей всего, этот файл вообще содержит не текстовые данные, а какие-то другие в произвольном двоичном формате. --------- Не узнаешь - не попробуешь.

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Практикант) Ответ отправлен: 01.11.2006, 16:21

Вопрос № 60.874

Здраствуйте уважаемые експерты! Напишите, пожалуйста, каким образом можно работать с ИК приемником подключенным, например, к com-порту. Если можно, напишите ссылку на ресурсы с теорией, или конкретные примеры. Заранее благодарный.

Отправлен: 01.11.2006, 09:57 Вопрос задал: Олекса aka SoW (статус: 2-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PaVeL_Ekt Здравствуйте, Олекса aka SoW! по идее есть два пути использования ИК: Работа непосредственно с портом: Про это можно прочитать на http://www.delphikingdom.com/ http://www.delphiworld.ru/ и в поисковиках много ссылок по данному вопросу. и работа через драйвер устройства но про это направление подсказать не смогу. --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 5-ый класс) Ответ отправлен: 01.11.2006, 11:07 Оценка за ответ: 5

Отвечает: Mexes Здравствуйте, Олекса aka SoW! Попробуй разобраться с IrDA (Infrared Data Assotiation). Есть пример программ/компонентов ICS WSocket extension supporting WinSock interface to IrDA:IrCOMM (IrSock) http://17slon.com/gp/gp/twircommsocket.htm Bluetooth Framework '6.9' Components for mobile communicationBluetooth Framework - unique library of components Delphi for work with mobile devices (PDA, cellular telephones). Allows to carry out communication(connection) with the device through: Bluetooth, IrDA, COM port. Is able: to transfer and accept files, to work with file system, to send and accept SMS, to carry out synchronization, to carry out search of devices (Bluetooth and IrDA). to work with the PhoneBook. http://irda.qarchive.org/ Лично я не дока в этом вопросе, но в основном компоненты идут универсальные, а не только на ИК. Не знаю особенностей проекта, поэтому просто перечислю некоторые ссылки http://www.torry.net/authorsmore.php?id=6410 http://www.zylsoft.com/gpsrec.htm http://www.freedownloadmanager.org/downloads/Bluetooth_Framework_Developer_38705_p/ http://www.delphiplus.org/articles/api/bluetooth/btenum.html http://www.afreego.com/Categories/Programming/Delphi/028732.php

Ответ отправил: Mexes (статус: 5-ый класс) Ответ отправлен: 01.11.2006, 12:48 Оценка за ответ: 5

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.37 от 04.10.2006