Indy POP3範例程式[Delphi轉BCB] |
答題得分者是:wyndog
|
GGL
資深會員 發表:104 回覆:600 積分:335 註冊:2006-11-05 發送簡訊給我 |
程式碼:http://delphi.ktop.com.tw/loadfile.php?TOPICID=23228682&CC=519498
該範例是一本Delphi/Kylix Indy網路程式設計這本書裡面的,但是他是pascal的語法,有一些不知道該怎麼轉換成BCB的,麻煩各位幫我看看。謝謝...
以下是我有問題的函式:
Copy、inc在BCB裡該用什麼function
程式碼裡面有一段,請問self是什麼??
String temp_filename ; ////////////////////////////////// Mail Title Rander. self.TMail_Frame1.Mail_digest.Lines.Clear; self.TMail_Frame1.Mail_digest.DefAttributes.Size = 10; self.TMail_Frame1.Mail_digest.Lines.Add("寄件者: "+From+" 收件者: "+Too+" 時間: "+ Date ); self.TMail_Frame1.Mail_digest.SelStart = 0; self.TMail_Frame1.Mail_digest.SelLength = 7; self.TMail_Frame1.Mail_digest.SelAttributes.Style = [fsBold]; self.TMail_Frame1.Mail_digest.SelStart = 8 + length(From) + 7; self.TMail_Frame1.Mail_digest.SelLength = 7; self.TMail_Frame1.Mail_digest.SelAttributes.Style = [fsBold]; self.TMail_Frame1.Mail_digest.SelStart = self.TMail_Frame1.Mail_digest.SelStart + 7 + length(Too) + 7; self.TMail_Frame1.Mail_digest.SelLength = 5; self.TMail_Frame1.Mail_digest.SelAttributes.Style = [fsBold]; self.TMail_Frame1.Mail_digest.Lines.Add("主旨: "+ subject); self.TMail_Frame1.Mail_digest.SelStart = length(self.TMail_Frame1.Mail_digest.Lines.Strings[0]); self.TMail_Frame1.Mail_digest.SelLength = 5; self.TMail_Frame1.Mail_digest.SelAttributes.Style = [fsBold]; /////////////////////////////////////// Decode Message Body; Gen_Temp_filename(temp_filename); // Msg.Body.SaveToFile(temp_filename); RAW.SaveToFile(temp_filename); self.TMail_Frame1.Mail_Stage.Navigate(temp_filename);原始的程式還蠻長的,麻煩各位了,謝謝 |
wyndog
資深會員 發表:7 回覆:362 積分:348 註冊:2004-10-12 發送簡訊給我 |
|
GGL
資深會員 發表:104 回覆:600 積分:335 註冊:2006-11-05 發送簡訊給我 |
|
wyndog
資深會員 發表:7 回覆:362 積分:348 註冊:2004-10-12 發送簡訊給我 |
|
GGL
資深會員 發表:104 回覆:600 積分:335 註冊:2006-11-05 發送簡訊給我 |
function TForm1.Decode_Msg_To_Lists(Msg: TIdMessage; MailSize:integer): integer; var NewItem : TListItem; Subject, Too : string; MyData : Integer_Ptr; begin subject := ''; NewItem := Mail_ListItem.Items.Add; New(MyData); NewItem.Data := MyData; case MSg.Priority of mpHighest, mpHigh: begin NewItem.ImageIndex := 0; MyData^ := 0; end; mpLow, mpLowest: begin NewItem.ImageIndex := 2; MyData^ := 2; end; else begin NewItem.ImageIndex := 1; MyData^ := 1; end; end; //NewITem.ImageIndex := //NewITem.Caption := ''; Too := DecodeHeader(Msg.From.Text); //Too := Msg.From.Text; //NewItem.Caption := Too; NewItem.SubItems.Add(Too); Subject := DecodeHeader(Msg.Subject); //Subject := Msg.Subject; NewItem.SubItems.Add(Subject); NewItem.SubItems.Add(DateToStr(Msg.Date)); NewItem.SubItems.Add(IntToStr(MailSize)); Result := 0; end;再請問,上述程式碼中Integer_Ptr是什麼資料型態,我該怎麼改? 還有MyData^ := 2;中的"^"有是什麼意思?謝謝... |
wyndog
資深會員 發表:7 回覆:362 積分:348 註冊:2004-10-12 發送簡訊給我 |
|
GGL
資深會員 發表:104 回覆:600 積分:335 註冊:2006-11-05 發送簡訊給我 |
|
wyndog
資深會員 發表:7 回覆:362 積分:348 註冊:2004-10-12 發送簡訊給我 |
|
GGL
資深會員 發表:104 回覆:600 積分:335 註冊:2006-11-05 發送簡訊給我 |
|
wyndog
資深會員 發表:7 回覆:362 積分:348 註冊:2004-10-12 發送簡訊給我 |
|
GGL
資深會員 發表:104 回覆:600 積分:335 註冊:2006-11-05 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |