請問下段的C#程式碼, 如何轉成delphi程式碼?  裡面就底下這行比較不懂, 其他的在網路上皆已找到資料了. WAB.IFolderContacts ifc = (WAB.IFolderContacts)fd.Contacts   NKTWAB是免費的 Windows Address Book 元件, 下載網址:http://www.nektra.com/products/wab/index.php   


using WAB = NKTWABLib;

private static void addContact()

{

WAB.NKTWABClass wab = new WAB.NKTWABClass();

WAB.Folder fd = wab.DefaultFolder;

WAB.IFolderContacts ifc = (WAB.IFolderContacts)fd.Contacts;

WAB.Contact c = ifc.Add();

c.DefaultEmailAddress = "t...@email.com";

c.DisplayName = "Display Name";

c.Email1Address = "t...@email.com";

c.FirstName = "Test";

c.LastName = "User";

c.Name = "DisplayName";

c.Save();
}

編輯記錄

您好,

沒實測哦, 請參考
WAB.IFolderContacts ifc = (WAB.IFolderContacts)fd.Contacts;

1. WAB.IFolderContacts ifc --> 比照 WAB.Folder fd = wab.DefaultFolder; 先宣告 ifc
2. (WAB.IFolderContacts)fd.Contacts; --> 應該是轉型, delphi 的話可能是 WAB.IFolderContacts(fd.Contacts);


我的意思是 ifc := WAB.IFolderContacts(fd.Contacts);

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

謝謝你的回覆, 依你的建議測試complier不成功.

procedure TForm1.Button1Click(Sender: TObject);
var
WAB:INKTWAB;
fd:IFolder;
ifc:IFolderContacts;
c:IContact;

begin

Wab:=CoNKTWAB.Create;
Wab.Get_DefaultFolder( fd );

// 這行 C#代碼 不曉得怎麼轉成delphi (WAB.IFolderContacts)fd.Contacts;

ifc.Add(c);
.
.
.
c.save;

end;


===================引 用 st33chen 文 章===================
您好,

沒實測哦, 請參考
WAB.IFolderContacts ifc = (WAB.IFolderContacts)fd.Contacts;

1. WAB.IFolderContacts ifc --> 比照 WAB.Folder fd = wab.DefaultFolder; 先宣告 ifc
2. (WAB.IFolderContacts)fd.Contacts; --> 應該是轉型, delphi 的話可能是 WAB.IFolderContacts(fd.Contacts);

本來上補上傳NKTWABLib_TLB.pas, 但好像只能開版時傳附件, 之後不能傳了, 所以改用貼的.

抱歉,因程式碼太大, 會造成網頁無法流覽, 所以又刪除掉了.

編輯記錄

ifc := (fd.Contacts as IFolderContacts);

===================引 用 ycl2005 文 章===================
謝謝你的回覆, 依你的建議測試complier不成功.

procedure TForm1.Button1Click(Sender: TObject);
var
WAB:INKTWAB;
fd:IFolder;
ifc:IFolderContacts;
c:IContact;

begin

Wab:=CoNKTWAB.Create;
Wab.Get_DefaultFolder( fd );

// 這行 C#代碼 不曉得怎麼轉成delphi (WAB.IFolderContacts)fd.Contacts;

ifc.Add(c);
.
.
.
c.save;

end;


===================引 用 st33chen 文 章===================
您好,

沒實測哦, 請參考
WAB.IFolderContacts ifc = (WAB.IFolderContacts)fd.Contacts;

1. WAB.IFolderContacts ifc --> 比照 WAB.Folder fd = wab.DefaultFolder; 先宣告 ifc
2. (WAB.IFolderContacts)fd.Contacts; --> 應該是轉型, delphi 的話可能是 WAB.IFolderContacts(fd.Contacts);

感謝 st33chen & frontier 的回覆 讓我有靈感, 總算測試出來了, 重點是底下這二行,

nextFolder.Get_Contacts(myContacts);
ifc:= myContacts as IFolderContacts;


範例碼如下貼出來給大家分享:

[code delphi]
procedure TForm1.Button4Click(Sender: TObject);
var
myWAB:INKTWAB;
rootFolder:IFolder;
myFolder:IFolders;
myContacts:IContacts;
nextFolder:IFolder;
contacts:Contact;
ifc:IFolderContacts;
begin
myWab:=CoNKTWAB.Create;

try
myWab.Get_RootFolder(rootFolder); //WAB Root Container
rootfolder.Get_Folders(myFolder);
myFolder.Get_Item(1,nextFolder); //主要識別連絡人
nextFolder.Get_Contacts(myContacts);
ifc:= myContacts as IFolderContacts;
ifc.Add(contacts);
contacts.Set_FirstName('first');
contacts.Set_LastName('last');
contacts.Set_DefaultEmailAddress('emailaddress');
contacts.Save; //增加資料到主要識別連絡人
finally
myWab:=nil;
end;
end;
[/code]

編輯記錄