使用indy的问题,怎样获得多个附件中某一个附件的文件大小 |
尚未結案
|
whoawho
一般會員 發表:13 回覆:18 積分:6 註冊:2004-03-16 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
whoawho
一般會員 發表:13 回覆:18 積分:6 註冊:2004-03-16 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
這樣行不行?
procedure TForm1.Button1Click(Sender: TObject); var ms: TMemoryStream; begin IdPOP31.Host := 'neillans.co.uk'; IdPOP31.Username := 'test@neillans.co.uk'; IdPOP31.Password := '**GG$('; IdPOP31.Connect; If IdPOP31.CheckMessages > 0 Then Begin ms := TMemoryStream.Create; try IdPOP31.Retrieve(1, IdMessage1); IdMessage1.SaveToStream(ms); Memo1.Lines.Add('Size: ' ms.Size); finally ms.Free; end; End; IdPOP31.Disconnect; end;--- 這次沒買到 cd-pro2 實在很 ... |
whoawho
一般會員 發表:13 回覆:18 積分:6 註冊:2004-03-16 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
改個 for 迴圈試試
procedure TForm1.Button1Click(Sender: TObject); var ms: TMemoryStream; i: integer; begin IdPOP31.Host := 'neillans.co.uk'; IdPOP31.Username := 'test@neillans.co.uk'; IdPOP31.Password := '**GG$('; IdPOP31.Connect; for i := 1 to IdPOP31.CheckMessages do Begin ms := TMemoryStream.Create; try IdPOP31.Retrieve(i, IdMessage1); IdMessage1.SaveToStream(ms); Memo1.Lines.Add('第 ' IntToStr(i) ' 個附檔 Size: ' ms.Size); finally ms.Free; end; End; IdPOP31.Disconnect; end;--- 這次沒買到 cd-pro2 實在很 ... |
whoawho
一般會員 發表:13 回覆:18 積分:6 註冊:2004-03-16 發送簡訊給我 |
|
whoawho
一般會員 發表:13 回覆:18 積分:6 註冊:2004-03-16 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
呵, 搞錯這麼多!
再看看這篇:
http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&th=b3b1fb8b9a196a36&rnum=3
IdMessage1.MessageParts.CountParts; // update AttachmentCount AttachmentCountEdit.Text := IntToStr(IdMessage1.MessageParts.AttachmentCount); AttachmentFileNamesEdit.Text := ''; AttachmentFileSize := 0; for i := 0 to IdMessage1.MessageParts.Count - 1 do if IdMessage1.MessageParts.Items[i] is TIdAttachment then begin FileName := IdMessage1.MessageParts.Items[i].StoredPathName; try fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone); try AttachmentFileSize := AttachmentFileSize fs.Size; finally fs.Free; end; except end; FileName := TIdAttachment(IdMessage1.MessageParts.Items[i]).FileName; if AttachmentFileNamesEdit.Text <> '' then AttachmentFileNamesEdit.Text := AttachmentFileNamesEdit.Text ' , '; AttachmentFileNamesEdit.Text := AttachmentFileNamesEdit.Text FileName; AttachmentFileSizeLabel.Caption := 'Attachment File Size: ' IntToStr(AttachmentFileSize); end;--- 這次沒買到 cd-pro2 實在很 ... |
whoawho
一般會員 發表:13 回覆:18 積分:6 註冊:2004-03-16 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |