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

Выпуск № 499
от 11.06.2006, 05:35

Вопрос № 45.217

Здравствуйте, господа Эксперты! У меня такой вопрос: сам я не работаю с Интернет-протоколами, но в проге предусатривается такая фича как отправка определенного текста по эл. почте. У меня Delphi 7 (это я к тому, что в Нете примеры в основном с NMsmtp, а у меня Indy). Можно пример работы именно с Indy (соединение, отправка, возможные ошибки и т.д.) или ссылочку на ресурсы Нета. Возможно, сторонние библиотеки. Заранее спасибо.

Отправлен: 05.06.2006, 07:38 Вопрос задал: Neiroman (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Евгения Здравствуйте, Neiroman! Литература по Indy: см. вопрос №44822 Счастливо! --------- Я не волшебник, я только учусь... А разве кто-то обещал, что будет легко?

Ответ отправила: Евгения (статус: 6-ой класс) Ответ отправлен: 05.06.2006, 07:46

Отвечает: sir henry Здравствуйте, Neiroman! Вы невнимательно рассматривали свою дельфу. :) Зайдите в Delphi7\Demos\Indy и прочтите readme_indy.txt. В этом файле есть ссылка на большой пакет примеров. по Indy. Примеры очень понятные. В том числе и по отсылке писем.

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

Вопрос № 45.219

Здравствуйте, уважаемые эксперты. Подскажите пожалуйста, как сделать жирным шрифт в одном столбце компонента Stringrid. Заранее спасибо.

Отправлен: 05.06.2006, 08:13 Вопрос задал: Виталий Зелинский (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Евгения Здравствуйте, Виталий Зелинский! procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin with (Sender as TStringGrid).Canvas do begin if (Acol = 1) and (ARow<>0) then begin // выбор ячеек, в которых будете менять стиль Font.Style:=[fsBold]; Font.color:=clWhite; Font.Size:=10; Font.Name:='timesnewroman'; Brush.Color:=clGreen; end; FillRect(Rect); TextOut(Rect.Left, Rect.Top, (Sender as TStringGrid).Cells[Acol,Arow]) end; end; Счастливо! --------- Я не волшебник, я только учусь... А разве кто-то обещал, что будет легко?

Ответ отправила: Евгения (статус: 6-ой класс) Ответ отправлен: 05.06.2006, 08:52 Оценка за ответ: 5 Комментарий оценки: Большое спасибо!

Отвечает: Serg_6667 Здравствуйте, Виталий Зелинский! Все происходит в методе DrawCell.Следует вручную прорисовывать текст. В приложении пример: отрисовывается текст во втором столбце жирным шрифтом по середине. Приложение: procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if acol = 1 then begin stringgrid1.canvas.Font.Style := [fsbold]; drawtext(stringgrid1.Canvas.Handle, pchar('asdf'), length('asdf'), rect, dt_wordbreak or dt_center); end; end;

Ответ отправил: Serg_6667 (статус: 2-ой класс) Ответ отправлен: 06.06.2006, 12:37

Вопрос № 45.220

Здраствуйте, уважаемые эксперты. У меня такая проблема. Мне нужно использовать звуки транскрипции в моей проге. Шрифт у меня есть "PhoneticTM", на моем компьютере он есть и прога показывает звуки нормально. Нужно чтобы все нормально работало и на чужих компьютерах. Как сделать, чтобы прога использовала этот шрифт на любом компьютере, где она запускается? Заранее спасибо.

Отправлен: 05.06.2006, 08:27 Вопрос задал: Виталий Зелинский (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Mud@k Здравствуйте, Виталий Зелинский! Вариант 1: Сказать пользователю, что надо установить такой шрифт и добавить его в архив с программой или отдельный архив с шрифтом. Вариант 2 : Использовать инсталлятор для Вашей программы, который установит этот шрифт на комп. пользователя. Этот вариант лучше, т.к. не все, возможно, умеют устанавливk 2;ть шрифты. Удачи!

Ответ отправил: Mud@k (статус: Заблокирован) Ответ отправлен: 05.06.2006, 08:43 Оценка за ответ: 5 Комментарий оценки: Второй вариант конечно лучше. А где взять такой инсталлятор?

Отвечает: Евгения Здравствуйте, Виталий Зелинский! см. вопрос №44795 Счастливо! --------- Я не волшебник, я только учусь... А разве кто-то обещал, что будет легко?

Ответ отправила: Евгения (статус: 6-ой класс) Ответ отправлен: 05.06.2006, 08:56 Оценка за ответ: 5 Комментарий оценки: Спасибо Евгения. По ссылке я нашел очень обстоятельный ответ. Но только, с моими познаниями в Delphi все равно многое не понятно. Нужно создать файл и скомпилировать его прогой brcc32.exe. А где взять эту brcc32.exe?

Отвечает: Ерёмин Андрей Здравствуйте, Виталий Зелинский! При запуске программы нужно сообщить Windows о появлении нового шрифта, а при выходе удалить шрифт из системы. Делается очень просто: AddFontResource(PChar(ExtractFilePath(Application.ExeName)+'myfont.ttf')); ... RemoveFontResource(PChar(ExtractFilePath(Application.ExeName)+'myfont.ttf')); После выполнения первой строки шрифт можно полноценно использовать и обращаться к нему по имени. В данном случае подгружается шрифт, находящийся в файле myfont.ttf, расположенном в каталоге с программой. Удачи! --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 05.06.2006, 19:22 Оценка за ответ: 5

Вопрос № 45.238

Как получить текс из RichEdit от положения курсора и до конца текста?

Отправлен: 05.06.2006, 12:34 Вопрос задал: source (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, source! Я как раз решал такую же задачу, только у меня был не TRichEdit, а TMemo. Но все используемые мной методы наследуются обоими компонентами от TCustomEdit, так что должно работать и в TRichEdit. Приложение: var s, l: integer; begin l := length(MemoP.Text); s := MemoP.SelStart; if (s > 0) and (s < l) then begin MemoP.SelLength := (l - s); MemoP.CutToClipboard; // либо MemoP.CopyToClipBoard // теперь в ClipBoard.AsText у вас лежит нужный вам текст end; end;

Ответ отправил: Сухомлин Кирилл Владимирович (статус: 8-ой класс) Ответ отправлен: 05.06.2006, 13:34

Отвечает: Mud@k Здравствуйте, source! To Сухомлин Кирилл Владимирович: А зачем что-то выделять? Код для копирования в приложении. Удачи! Приложение: var s : string; begin s := RichEdit1.Text; ShowMessage(Copy(s,Richedit1.SelStart+1,length(s)-Richedit1.SelStart)); end;

Ответ отправил: Mud@k (статус: Заблокирован) Ответ отправлен: 05.06.2006, 13:43

Отвечает: Евгения Здравствуйте, source! Или так: procedure TForm2.Button1Click(Sender: TObject); var i,k: byte; begin k:=0; if RichEdit1.CaretPos.y>0 then for i:=0 to RichEdit1.CaretPos.y-1 do k:=k+length(RichEdit1.Lines[i])+2; k:=k+RichEdit1.CaretPos.x; RichEdit2.Text:=Copy(RichEdit1.Text,k+1,length(RichEdit1.Text)-k); end; Счастливо! --------- Я не волшебник, я только учусь... А разве кто-то обещал, что будет легко?

Ответ отправила: Евгения (статус: 6-ой класс) Ответ отправлен: 05.06.2006, 14:22

Вопрос № 45.255

Здравствуйте уважаемые программисты. Мне нужен текст программы, которая находит самое длинное слово в предложении. Знаю, что программа простая, но написать немогу. Заранее спасибо.!!!

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

Отвечает: romodos Здравствуйте, Роман Сергеeвич Магнитский! Хм...ну писать программу я, конечно, не буду. Но идею подскажу. Делаете цикл. В нем идете и копируете в переменную s символы, пока не встретите пробел или знак препинания. Смотрите, если символов в s больше чем в переменной max, то делаете max:=s; Иначе обнуляете s. И т.д. Идете по циклу дальше, пока не закончится строка. Вроде бы идея ясна? Если что - прошу в мини-форум или в личку. --------- The Source is Our Soul. FAQ me off!

Ответ отправил: romodos (статус: Специалист) Ответ отправлен: 05.06.2006, 14:40 Оценка за ответ: 5

Отвечает: Ерёмин Андрей Здравствуйте, Роман Сергеeвич Магнитский! А я решил написать код :-) Работает циклами с использованием динамических массивов. Подразумевается, что в Edit1 находится исходное предложение, а в Label1 выводится результат анализа - самое длинное слово и кол-во букв в нём. Приложение: Var P1,P2,C,I,Max: Integer; S,Word,Res: String; Words: Array Of String; begin S:=Edit1.Text; P1:=1; P2:=1; C:=0; SetLength(Words,0); While P2 < Length(S) Do Begin While S[P2]<>' ' Do Begin Inc(P2); End; Word:=Copy(S,P1-1,P2-P1+1); If Word[1] = ' ' Then Word:=Copy(Word,2,Length(Word)); If Word[Length(Word)] = ' ' Then SetLength(Word,Length(Word)-1); Inc(C); SetLength(Words,C); Words[C-1]:=Word; //ListBox1.Items.Add(Word); P1:=P2+2; P2:=P1; End; Max:=Length(Words[0]); Res:=Words[0]; For I:=0 To C-1 Do If (Length(Words[I]) > Max) Then Begin Max:=Length(Words[I]); Res:=Words[I]; End; Label1.Caption:=Res+' ('+IntToStr(Max)+' букв)'; --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 05.06.2006, 19:50

Отвечает: sir henry Здравствуйте, Роман Сергеeвич Магнитский! К предложеному выше еще добавлю, что если выделеные из предложения слова добавлять в компонент TStringList, а потом отсортировать его, сделав TStringList.Sorted:=True, то самое последнее слово в списке и будет самым длинным в предложении. :)

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

Вопрос № 45.269

Здравствуйте, эксперты! Расскажите, пожалуйста про использование и создание dll. Я ещё ни разу не писал dll. Спасибо. PS. не надо удалять мой вопрос: я не нашёл в поисковиках ничего подходящего.

Отправлен: 05.06.2006, 15:09 Вопрос задал: Колян (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Mud@k Здравствуйте, Колян! В рассылках mail.ru нашёл следующую статью (пошлю в минифорум, т.к. она большая). Надеюсь, подойдёт! Удачи.

Ответ отправил: Mud@k (статус: Заблокирован) Ответ отправлен: 05.06.2006, 15:20 Оценка за ответ: 5

Отвечает: Gh0stik Здравствуйте, Колян! Вот ссылочка на файли в котором достаточно подробно и просто написано что такое DLL и как сними бороться: http://delphiworld.narod.ru/base/uses_dll.html --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаються события на земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Студент) Ответ отправлен: 05.06.2006, 15:22 Оценка за ответ: 5

Отвечает: Serg_6667 Здравствуйте, Колян! В приложении содержимое двух файлов: библиотеки и использование Приложение: {lib} library Project1; function GetNumber: integer; begin Randomize; Result := random(35535); end; exports GetNumber name 'GetNumber'; begin end. {unit, kotorij ispolzuet dll} unit main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; function GetNumber: integer; external 'project1.dll'; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin showmessage(inttostr(getnumber)) end; end.

Ответ отправил: Serg_6667 (статус: 2-ой класс) Ответ отправлен: 06.06.2006, 12:21

Вопрос № 45.283

Здравствуйте! Я не давно открял для себя, что существуют типизированные файлы. У Вас нет примеров на эту тему? Если есть, пришлите, пожалуйста. Спасибо.

Отправлен: 05.06.2006, 17:38 Вопрос задал: Колян (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Mud@k Здравствуйте, Колян! Небольшая программа, которая записывает в файл (типизированный) список студентов с их оценками, читает этот файл, считает средний балл, создаёт список успевающих. Скачать: http://thedelphi.t35.com/typedfiles.zip (9.2 KB) Удачи!

Ответ отправил: Mud@k (статус: Заблокирован) Ответ отправлен: 05.06.2006, 17:45

Отвечает: Устинов Сергей Евгеньевич Здравствуйте, Колян! Про типизированные файлы почитайте тут: http://itby.ru/content/view/2419/40/ http://program.rin.ru/razdel/html/1080.html http://www.megalib.com/books/478/b74.htm --------- Ответы на все вопросы - на сайте www.ya.ru :)

Ответ отправил: Устинов Сергей Евгеньевич (статус: Студент) Ответ отправлен: 05.06.2006, 21:43

Отвечает: Serg_6667 Здравствуйте, Колян! В примере содержимое из файла перекачивается в двумерный массив Приложение: var f : file of char; index : integer; ch : char; begin; {$I-} index := 0; assignfile(f, startdir + datadir + topics[c].Filename); reset(f); while not eof(f) do begin read(f, ch); if (ch <> chr(9)) and (ch <> '|') then lib[libcount][index] := lib[libcount][index] + ch; if ch = chr(9) then index := index + 1; if ch = '|' then begin index := 0; lib[libcount][6] := topics[c].TopicName; libcount := libcount + 1; end; end; closefile(f); {$I+}

Ответ отправил: Serg_6667 (статус: 2-ой класс) Ответ отправлен: 06.06.2006, 12:13

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