Delphi 怎么读区 wab格式的文件? ( 积分: 100 )

我现在想做一个程序能够把wab格式中的手机号码读取出来.大家有办法吗?先谢谢了

http://delphi-jedi.org/有下载的<br>WabDemo.exe

cxz9老兄您大手一绘让我在&nbsp;http://delphi-jedi.org/&nbsp;里找.可我找了半天找不到啊

晕&nbsp;给偶个邮箱&nbsp;&nbsp;偶发你

http://pickup.mofile.com/5025411580664400<br>你到这儿去提取吧

listview加一列&nbsp;显示手机号码<br>procedure&nbsp;TMainForm.LoadItems(RememberSelected:&nbsp;Boolean);<br>const<br>&nbsp;&nbsp;TableColumns:&nbsp;record&nbsp;//&nbsp;SizedSPropTagArray&nbsp;macro<br>&nbsp;&nbsp;&nbsp;&nbsp;Count:&nbsp;ULONG;<br>&nbsp;&nbsp;&nbsp;&nbsp;Definition:&nbsp;array[0..5]&nbsp;of&nbsp;ULONG;<br>&nbsp;&nbsp;end&nbsp;=&nbsp;(<br>&nbsp;&nbsp;&nbsp;&nbsp;Count:&nbsp;6;<br>&nbsp;&nbsp;&nbsp;&nbsp;Definition:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(PR_DISPLAY_NAME,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PR_EMAIL_ADDRESS,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PR_PERSONAL_HOME_PAGE,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PR_ENTRYID,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PR_OBJECT_TYPE,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PR_MOBILE_TELEPHONE_NUMBER);<br>&nbsp;&nbsp;&nbsp;<br>var<br>&nbsp;&nbsp;Container:&nbsp;IABContainer;<br>&nbsp;&nbsp;EntryID:&nbsp;PEntryID;<br>&nbsp;&nbsp;EntryIDSize,&nbsp;ObjType:&nbsp;ULONG;<br>&nbsp;&nbsp;Table:&nbsp;IMAPITable;<br>&nbsp;&nbsp;TableRow:&nbsp;PSRowSet;<br>&nbsp;&nbsp;EntryIDData:&nbsp;PSBinary;<br>&nbsp;&nbsp;Item,&nbsp;LastSelectedItem:&nbsp;TListItem;<br><br>function&nbsp;IsLastDetailItem:&nbsp;Boolean;<br>var<br>&nbsp;&nbsp;Res:&nbsp;ULONG;<br>begin<br>&nbsp;&nbsp;Result&nbsp;:=&nbsp;(FLastDetailID&nbsp;&lt;&gt;&nbsp;nil)&nbsp;and&nbsp;RememberSelected;<br>&nbsp;&nbsp;if&nbsp;not&nbsp;Result&nbsp;then&nbsp;Exit;<br>&nbsp;&nbsp;with&nbsp;FLastDetailID^&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;OleCheck(AddrBook.CompareEntryIDs(EntryIDSize,&nbsp;EntryID,&nbsp;cb,&nbsp;PEntryID(lpb),&nbsp;0,&nbsp;Res));<br>&nbsp;&nbsp;Result&nbsp;:=&nbsp;Res&nbsp;&lt;&gt;&nbsp;0;<br>end;<br><br>begin<br>&nbsp;&nbsp;LastSelectedItem&nbsp;:=&nbsp;nil;<br><br>&nbsp;&nbsp;OleCheck(AddrBook.GetPAB(EntryIDSize,&nbsp;EntryID));<br>&nbsp;&nbsp;OleCheck(AddrBook.OpenEntry(EntryIDSize,&nbsp;EntryID,&nbsp;nil,&nbsp;0,<br>&nbsp;&nbsp;&nbsp;&nbsp;ObjType,&nbsp;IUnknown(Container)));<br>&nbsp;&nbsp;OleCheck(WabObject.FreeBuffer(EntryID));<br><br>&nbsp;&nbsp;OleCheck(Container.GetContentsTable(0,&nbsp;Table));<br>&nbsp;&nbsp;OleCheck(Table.SetColumns(@TableColumns,&nbsp;0));<br>&nbsp;&nbsp;OleCheck(Table.SeekRow(BOOKMARK_BEGINNING,&nbsp;0,&nbsp;nil));<br><br>&nbsp;&nbsp;with&nbsp;AdrBookListView&nbsp;do<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;Items.BeginUpdate;<br>&nbsp;&nbsp;&nbsp;&nbsp;try<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Items.Clear;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;repeat<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;OleCheck(Table.QueryRows(1,&nbsp;0,&nbsp;TableRow));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;TableRow.cRows&nbsp;&gt;&nbsp;0&nbsp;then&nbsp;with&nbsp;TableRow^.aRow[0]&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;ULONG(lpProps[4].Value.l)&nbsp;in&nbsp;[MAPI_MAILUSER,&nbsp;MAPI_DISTLIST]&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;EntryID&nbsp;:=&nbsp;lpProps[3].Value.bin.lpb;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;EntryIDSize&nbsp;:=&nbsp;lpProps[3].Value.bin.cb;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;OleCheck(WabObject.AllocateBuffer(Sizeof(TSBinary),&nbsp;Pointer(EntryIDData)));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;OleCheck(WabObject.AllocateMore(EntryIDSize,&nbsp;EntryIDData,&nbsp;Pointer(EntryIDData.lpb)));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CopyMemory(EntryIDData.lpb,&nbsp;EntryID,&nbsp;EntryIDSize);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;EntryIDData^.cb&nbsp;:=&nbsp;EntryIDSize;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Item&nbsp;:=&nbsp;Items.Add;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;with&nbsp;Item&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Caption&nbsp;:=&nbsp;SPropValueToStr(lpProps[0]);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SubItems.Add(SPropValueToStr(lpProps[1]));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SubItems.Add(SPropValueToStr(lpProps[2]));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SubItems.Add(SPropValueToStr(lpProps[5]));<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Data&nbsp;:=&nbsp;EntryIDData;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case&nbsp;ULONG(lpProps[4].Value.l)&nbsp;of<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MAPI_MAILUSER:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ImageIndex&nbsp;:=&nbsp;imgIndexUser;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MAPI_DISTLIST:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ImageIndex&nbsp;:=&nbsp;imgIndexDL;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;

谢谢,提取到了。