Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 21.05.2009, 17:14   #1
DannyKing
Пользователь
 
Регистрация: 18.03.2009
Сообщений: 14
По умолчанию Не могу разобраться с ListView в delphi

пишу прогу для работы с почтой.
для того чтобы мыло с прицепом отправить, (кроме всего остального) есть поле ListView в которое записывается attachment. С помощью open dialog все прекрасно работает, НО!...
надо добавить в attachment файл с прописаным в edit path-ом... как это сделать!!!! т.е. добавить attach не через open dialog, а чтобы по определенному событию прога брала в edit-e путь и добавляла файл сама!!!.
помогите, плз.
DannyKing вне форума Ответить с цитированием
Старый 21.05.2009, 17:21   #2
DannyKing
Пользователь
 
Регистрация: 18.03.2009
Сообщений: 14
По умолчанию

кусок проги.
процедура по таймеру копирует файлы с помощью copy, потом архивирует и должна отправлять на почту... нужные настройки smtp стоят...
procedure TfmMain.arCopytime(Sender: TObject);
var
Time: TDateTime;
hh, mm, ext: integer;
s: string;
{sr: tsearchrec;
ListItem: TListItem; }
begin
Time := Now();
Timer_pt.Caption := FormatDateTime('hh:mm:ss',Time);
if flag = true then begin
//if (checkbox1.Checked = true) or (checkbox2.Checked = true) then begin
if Timer_pt.Caption = AutoCopyTime.text then
begin
s := timetostr(Time);
ext := StrtoInt(intime.text);
hh := strtoint(s[1] + s[2]);
mm := strtoint(s[4] + s[5]);
mm := mm + ext;
if (mm > 59) then begin
hh := hh + 1;
mm := mm - 59;
end;
AutoCopyTime.Text := (IntToStr(hh)+':'+IntToStr(mm)+':00 ');
if Srs1.text <> ''then arCopyOne(Srs1.Text, Dst.Text);
if Srs2.text <> ''then arCopyOne(Srs2.Text, Dst.Text);
if Srs3.text <> ''then arCopyOne(Srs3.Text, Dst.Text);
Archiving(Sender);
end;
end;

проблема с нижеследующем коде... пробовал то, что написал... не работает..

{if checkbox2.Checked = true then
begin
edSubj.Text := 'archiv';
memText.Lines.Add ('working!');
if FindFirst(archpath.Text, faAnyFile, sr) = 0 then
begin
ListItem := lvAttachments.Items.Add; // создается объект
ListItem.Caption := sr.name;
end;
sbtSendClick(Sender);
end;}

end;
//end;
DannyKing вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
не могу разобраться Var17 Общие вопросы Delphi 6 27.03.2010 01:21
Не могу разобраться с типами DM_bite Помощь студентам 6 11.08.2008 10:22
Не могу разобраться с DBLookupComboBox CAHEK_zero БД в Delphi 0 18.04.2007 06:40


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS