Задача в Delphi с SaveDialog

[DannyKing]

помогите пожалуйста переписать процедуру так, чтобы окно savedialog не появлялось, а attach сохранялся напрямую в какой-нибудь папке на диске. Например C:\папка1.

procedure TfmMain.sbtSaveAttachClick(Sender: TObject);
var
  i, Cnt, Idx: Integer;
begin
  Idx:=lvMailAttachments.Selected.Index;
  Cnt:=0;
  i:=0;

  while (i < IdMessage1.MessageParts.Count) do
    begin
      if IdMessage1.MessageParts[i] is TIdAttachment then
        if Cnt = Idx then
          begin
            sdMain.FileName:=(IdMessage1.MessageParts[i] as TIdAttachment).FileName;
            sdMain.InitialDir:=ExtractFilePath(Application.ExeName);

            if sdMain.Execute then
              (IdMessage1.MessageParts[i] as TIdAttachment).SaveToFile(sdMain.FileName);

            Exit;
          end
        else
          Inc(Cnt);

      Inc(i);
    end;
end;

[Daramant]

Вместо этого:

sdMain.FileName:=(IdMessage1.Messag eParts[i] as TIdAttachment).FileName;
sdMain.InitialDir:=ExtractFilePath( Application.ExeName);

if sdMain.Execute then
(IdMessage1.MessageParts[i] as TIdAttachment).SaveToFile(sdMain.Fi leName);

Надо:

FileName := '<имя файла>';
//например
FileName := ExtractFilePath( Application.ExeName) + 
         (IdMessage1.Messag eParts[i] as TIdAttachment).FileName;

(IdMessage1.MessageParts[i] as TIdAttachment).SaveToFile(FileName);

[DannyKing]

чет не работает...

[Daramant]

Что именно не работает?
Вызов диалога происходит здесь:

if sdMain.Execute then

Далее файл сохраняется с введенным именем:

(IdMessage1.MessageParts[i] as TIdAttachment).SaveToFile(sdMain.FileName);

Вместо этих двух строк я предложил вот это:

FileName := ExtractFilePath(Application.ExeName) + 
         (IdMessage1.Messag eParts[i] as TIdAttachment).FileName;
(IdMessage1.MessageParts[i] as TIdAttachment).SaveToFile(FileName);

Т.е. сохранение происходит в каталог с программой.
Имя файла соответствует имени файла во вложении.

[DannyKing]

я не понял куда вбить путь для сохранения... если execute нет... то прога просто виснет на filename...чет не хватает... или я не понял...

[Daramant]

Должно быть вот так:

procedure TfmMain.sbtSaveAttachClick(Sender: TObject);
var
  i, Cnt, Idx: Integer;
  Path: String; { <- ввели доп. переменные }
  attch: TIdAttachment;
begin
  Idx:=lvMailAttachments.Selected.Index;
  Cnt:=0;
  i:=0;
  Path := ExtractFilePath(Application.ExeName) + 'emails\'; { <- путь для сохранения файлов }

  while (i < IdMessage1.MessageParts.Count) do begin
    if IdMessage1.MessageParts[i] is TIdAttachment then
      if Cnt = Idx then begin
        attch := (TIdAttachment)IdMessage1.MessageParts[i];
        attch.SaveToFile(Path + attch.FileName);  { <- здесь сохранение }
        Exit;
      end
      else
        Inc(Cnt);
    Inc(i);
  end;
end;

[DannyKing]

attch := (TIdAttachment)IdMessage1.MessagePa rts[i];


[Error] uMain.pas(728): Incompatible types: 'TIdAttachment' and 'Class reference'

[Stilet]

Во-первых:

attch := TIdAttachment(IdMessage1.MessageParts[i]);

[DannyKing]

приложение запускается... но во время работы виснет... именно на этой процедуре.

[Daramant]

Выполни пошагово, посмотри, в чем конкретнее причина.
Возможно, что-то с циклом, а так не должно.