mbirth/delphi-pbe
Archived
1
0
Fork 0
Code Releases 1 Activity
This repository has been archived on 2025-03-31. You can view files and clone it, but cannot push or open issues or pull requests.
delphi-pbe/PBE_U.pas
mbirth f0d779890f modified PBE.cfg 
modified   PBE.dof
modified   PBE_U.dfm
modified   PBE_U.pas
* Form design
+ Code preparation for other parsers
2004-12-08 09:36:32 +00:00

780 lines
26 KiB
ObjectPascal
Raw Blame History

unit PBE_U;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, Jpeg, GIFImage, FileCtrl, Spin;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
PageControl2: TPageControl;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
TabSheet8: TTabSheet;
TabSheet9: TTabSheet;
TabSheet10: TTabSheet;
TabSheet11: TTabSheet;
StatusBar: TStatusBar;
PB_List: TListBox;
PB_OrderGroup: TRadioGroup;
PB_OrderLF: TRadioButton;
PB_OrderFL: TRadioButton;
PB_Name: TEdit;
PB_Home: TEdit;
PB_Work: TEdit;
PB_Mobile: TEdit;
PB_Fax: TEdit;
PB_Other: TEdit;
PB_Email: TEdit;
PB_Title: TEdit;
PB_Company: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
PB_PhotoGroup: TGroupBox;
PB_Photo: TImage;
PB_PhotoDelButton: TButton;
PB_PhotoLoadButton: TButton;
PB_PhotoSaveButton: TButton;
FileName: TEdit;
FileListBox1: TFileListBox;
DirectoryListBox1: TDirectoryListBox;
DirLabel: TLabel;
DriveComboBox1: TDriveComboBox;
FilterComboBox1: TFilterComboBox;
Button_Load: TButton;
Button_Save: TButton;
SM_List: TListBox;
PB_NewButton: TButton;
PB_DelButton: TButton;
SM_SMSC: TEdit;
SM_Recipient: TEdit;
SM_PID: TEdit;
SM_DCS: TEdit;
SM_TimeStamp: TEdit;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
PB_PhotoAtt: TCheckBox;
BM_List: TListBox;
BM_Name: TEdit;
BM_URL: TEdit;
Label15: TLabel;
Label16: TLabel;
LO_AutoKeylock: TCheckBox;
PR_List: TListBox;
PR_Name: TEdit;
Label17: TLabel;
BM_UpButton: TButton;
BM_DownButton: TButton;
WP_List: TListBox;
BM_NewButton: TButton;
BM_DelButton: TButton;
SM_NewButton: TButton;
SM_DelButton: TButton;
PB_SaveButton: TButton;
ProgressBar: TProgressBar;
Button_SaveAs: TButton;
Button_Close: TButton;
SM_Message: TMemo;
TabSheet12: TTabSheet;
DBG_Count: TEdit;
Label18: TLabel;
DBG_Entry: TMemo;
DBG_ShowEntry: TButton;
DBG_EntryGroup: TEdit;
DBG_EntryName: TEdit;
Label19: TLabel;
Label20: TLabel;
DBG_SelEntry: TSpinEdit;
DBG_LastEntry: TCheckBox;
DBG_Groups: TMemo;
ProgBarText: TLabel;
SC_List: TListBox;
SC_ButtonUp: TButton;
SC_ButtonDown: TButton;
SC_AvailSCs: TComboBox;
SC_ButtonAdd: TButton;
SC_ButtonDel: TButton;
SM_RadioSent: TRadioButton;
SM_RadioRecvd: TRadioButton;
BM_ButtonSave: TButton;
procedure Button_LoadClick(Sender: TObject);
procedure PB_ListClick(Sender: TObject);
procedure PB_OrderFLClick(Sender: TObject);
procedure PB_OrderLFClick(Sender: TObject);
procedure PB_PhotoDelButtonClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FileListBox1Change(Sender: TObject);
procedure DirectoryListBox1Change(Sender: TObject);
procedure Button_CloseClick(Sender: TObject);
procedure DBG_ShowEntryClick(Sender: TObject);
procedure Button_SaveClick(Sender: TObject);
procedure Button_SaveAsClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TPhoneEntry = record
Version: String[5];
Name: String[30];
Home, Work, Mobile, Fax, Other: String[80];
Email: String[50];
Title: String[15];
Company: String[30];
PhotoFile: String[255];
end;
TPBData = record
Group: AnsiString;
Name: AnsiString;
Value: AnsiString;
LastOfGroup: Boolean;
end;
TStartEnd = record
from, til: word;
end;
TGroups = record
Contacts: TStartEnd;
Calendar: TStartEnd;
SMSes: TStartEnd;
SettingsData: TStartEnd;
SettingsWAP: TStartEnd;
Bookmarks: TStartEnd;
SettingsProfiles: TStartEnd;
SettingsLocks: TStartEnd;
SettingsTime: TStartEnd;
SettingsCustMenu: TStartEnd;
end;
var
Form1: TForm1;
BackupFileName: string;
PB: array of TPBData;
PhoneBook: array of TPhoneEntry;
PhoneBookPhotoCount: integer = 0;
Groups: TGroups;
f: Textfile;
implementation
const CRLF: string = Chr(13)+Chr(10);
{$R *.dfm}
function DecodeQP(my: string): string;
const qpa: string[16] = '0123456789ABCDEF';
var i: integer;
qp: byte;
begin
Result := my;
i := Pos('=',Result);
while (i>0) do begin
Result[i] := '?';
qp := (Pos(Result[i+1],qpa)-1)*16+Pos(Result[i+2],qpa)-1;
Result := Copy(Result,1,i-1)+Chr(qp)+Copy(Result,i+3,Length(Result)-i-2);
i := Pos('=',Result);
end;
end;
function B64toBin(my: string): string;
const b64a: string[64] = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
var x,i,j: integer;
begin
Result := '';
for i:=1 to 4 do begin
x := Pos(my[i],b64a)-1;
if (x>=0) then begin
j := 32;
repeat
if (x DIV j)>0 then begin
Result := Result + '1';
x := x - j;
end else Result := Result + '0';
j := j DIV 2;
until (j=0);
end else begin
Result := Result + '000000';
end;
end;
end;
function BintoASC(my: string): string;
var i: integer;
res: string;
begin
res := '';
while (Length(my)>=8) do begin
i := 0;
if (my[1]<>'0') then i := i + 128;
if (my[2]<>'0') then i := i + 64;
if (my[3]<>'0') then i := i + 32;
if (my[4]<>'0') then i := i + 16;
if (my[5]<>'0') then i := i + 8;
if (my[6]<>'0') then i := i + 4;
if (my[7]<>'0') then i := i + 2;
if (my[8]<>'0') then i := i + 1;
res := res + Chr(i);
my := Copy(my,9,Length(my)-8);
end;
BintoASC := res;
end;
function DecodeB64(my: AnsiString): AnsiString;
var buf: string[4];
binbuf: string[24];
res: string;
begin
res := '';
while Length(my)>=4 do begin
buf := Copy(my,1,4);
my := Copy(my,5,Length(my)-4);
binbuf := B64toBin(buf); // convert 4 B64-hextets to a 24 Bit-string ('0' or '1')
res := res + BintoASC(binbuf); // convert the binary string to 3 Bytes
end;
DecodeB64 := res;
end;
function FindPhotoInStream(data: AnsiString): string;
var i: integer;
fn,t: string;
f: TextFile;
begin
fn := '';
i := Pos('PHOTO;ENCODING=BASE64;TYPE=',data);
if (i>0) then begin
data := Copy(data,i+27,Length(data)-i-27);
i := Pos(CRLF+CRLF,data); // Find end of record
if (i>0) then begin
data := Copy(data,1,i-1);
end;
data := StringReplace(data,CRLF,'',[rfReplaceAll]); // Remove all <br/>
i := Pos(':',data); // Find Image-Type (first 3 or 4 chars followed by a colon)
if (i>0) then begin
t := Copy(data,1,i-1); // Now contains the Image-Type ('JPEG' or 'GIF')
data := Copy(data,i+1,Length(data)-i); // The pure data in Base64
end;
data := DecodeB64(data);
Inc(PhoneBookPhotoCount);
fn := GetEnvironmentVariable('TEMP')+'\PBE\';
if NOT DirectoryExists(fn) then if NOT CreateDir(fn) then Exit;
fn := fn + 'PB';
if (PhoneBookPhotoCount<100) then fn := fn + '0';
if (PhoneBookPhotoCount<10) then fn := fn + '0';
fn := fn + IntToStr(PhoneBookPhotoCount) + '.';
if (t='JPEG') then fn := fn + 'jpg';
if (t='GIF') then fn := fn + 'gif';
AssignFile(f, fn);
Rewrite(f);
Write(f,data);
CloseFile(f);
end;
FindPhotoInStream := fn; // Return the filename of the extracted picture
end;
function FindDataInStream(field: string; data: AnsiString): string;
var i,j: integer;
s: string;
qp: boolean;
tmp: string;
begin
qp := false;
s := CRLF+field+':';
i := Pos(s, data);
if (i<=0) then begin
s := CRLF+field+';ENCODING=QUOTED-PRINTABLE:';
i := Pos(s, data);
if (i>0) then qp := true;
end;
if (i>0) then begin
j := Pos(CRLF,Copy(data,i+5,Length(data)-i-5))+i+5;
tmp := Copy(data,i+Length(s),j-i-Length(s)-1);
end else tmp := '';
if (qp) then tmp := DecodeQP(tmp);
FindDataInStream := tmp;
end;
function ParsePBStream(data: AnsiString): TPhoneEntry;
var tmp: TPhoneEntry;
begin
tmp.Version := FindDataInStream('VERSION',data);
tmp.Name := FindDataInStream('N',data);
tmp.Home := FindDataInStream('TEL;HOME',data);
tmp.Work := FindDataInStream('TEL;WORK',data);
tmp.Mobile := FindDataInStream('TEL;CELL',data);
tmp.Fax := FindDataInStream('TEL;FAX',data);
tmp.Other := FindDataInStream('TEL',data);
tmp.Email := FindDataInStream('EMAIL;INTERNET;PREF',data);
tmp.Title := FindDataInStream('TITLE',data);
tmp.Company := FindDataInStream('COMPANY',data);
tmp.PhotoFile := FindPhotoInStream(data);
ParsePBStream := tmp;
end;
function FormatName(y: string): string;
var x1,x2,x: string;
i: integer;
begin
i := Pos(';',y);
if (i>0) then begin
x1 := Copy(y,1,i-1);
x2 := Copy(y,i+1,Length(y)-i);
if (Length(x1)>0) AND (Length(x2)>0) then begin
if (Form1.PB_OrderLF.Checked) then x := x1 + ', ' + x2 else x := x2 + ' ' + x1;
end else if (Length(x1)=0) AND (Length(x2)>0) then x := x2
else if (Length(x1)>0) AND (Length(x2)=0) then x := x1
else if (Length(x1)=0) AND (Length(x2)=0) then x := '<no name>';
end else x := y;
FormatName := x;
end;
procedure BuildPBList;
var i: integer;
begin
Form1.PageControl1.ActivePageIndex := 0;
Form1.PB_List.Clear;
for i:=0 to Length(PhoneBook)-1 do begin
Form1.PB_List.Items.Add(FormatName(PhoneBook[i].Name));
end;
end;
procedure DeleteTemp;
var i: integer;
e: boolean;
d: string;
begin
e := false;
d := '';
if (Length(PhoneBook)>0) then begin
for i:=0 to Length(PhoneBook)-1 do begin
if (PhoneBook[i].PhotoFile<>'') then begin
if (d='') then d := ExtractFileDir(PhoneBook[i].PhotoFile);
if (NOT DeleteFile(PhoneBook[i].PhotoFile)) then e := true;
end;
end;
if (d<>'') then if NOT RemoveDir(d) then e := true;
if e then ShowMessage('Some files could not be deleted. Check '+d+' to delete them manually.');
end;
end;
procedure ReadPBintoMem(var InFile: TextFile);
var i, j: integer;
cl, gp: AnsiString;
begin
(*********************************************************************
***** READ FILE INTO ARRAY *****
*********************************************************************)
Form1.ProgressBar.Min := 0;
Form1.ProgressBar.Max := FileSize(InFile);
Form1.ProgressBar.Position := 0;
Form1.ProgressBar.Visible := true;
Form1.ProgBarText.Caption := 'Reading file...';
Application.ProcessMessages;
i:=0;
gp := '';
Groups.Contacts.from := $FFFF;
Groups.Contacts.til := $FFFF;
Groups.Calendar.from := $FFFF;
Groups.Calendar.til := $FFFF;
Groups.SMSes.from := $FFFF;
Groups.SMSes.til := $FFFF;
Groups.SettingsData.from := $FFFF;
Groups.SettingsData.til := $FFFF;
Groups.SettingsWAP.from := $FFFF;
Groups.SettingsWAP.til := $FFFF;
Groups.Bookmarks.from := $FFFF;
Groups.Bookmarks.til := $FFFF;
Groups.SettingsProfiles.from := $FFFF;
Groups.SettingsProfiles.til := $FFFF;
Groups.SettingsLocks.from := $FFFF;
Groups.SettingsLocks.til := $FFFF;
Groups.SettingsTime.from := $FFFF;
Groups.SettingsTime.til := $FFFF;
Groups.SettingsCustMenu.from := $FFFF;
Groups.SettingsCustMenu.til := $FFFF;
repeat
ReadLn(InFile, cl);
Form1.ProgressBar.Position := FilePos(InFile);
cl := Trim(cl);
cl := StringReplace(cl, '<br/>', CRLF, [rfReplaceAll]);
if (cl='<Contacts>') then Groups.Contacts.from := i
else if (cl='<Contacts/>') then Groups.Contacts.til := i-1
else if (cl='<Calendar>') then Groups.Calendar.from := i
else if (cl='<Calendar/>') then Groups.Calendar.til := i-1
else if (cl='<SMS_Messages>') then Groups.SMSes.from := i
else if (cl='<SMS_Messages/>') then Groups.SMSes.til := i-1
else if (cl='<Settings_DataAccount>') then Groups.SettingsData.from := i
else if (cl='<Settings_DataAccount/>') then Groups.SettingsData.til := i-1
else if (cl='<Settings_WAP>') then Groups.SettingsWAP.from := i
else if (cl='<Settings_WAP/>') then Groups.SettingsWAP.til := i-1
else if (cl='<Bookmarks>') then Groups.Bookmarks.from := i
else if (cl='<Bookmarks/>') then Groups.Bookmarks.til := i-1
else if (cl='<Settings_Profiles>') then Groups.SettingsProfiles.from := i
else if (cl='<Settings_Profiles/>') then Groups.SettingsProfiles.til := i-1
else if (cl='<Settings_Locks>') then Groups.SettingsLocks.from := i
else if (cl='<Settings_Locks/>') then Groups.SettingsLocks.til := i-1
else if (cl='<Settings_Time>') then Groups.SettingsTime.from := i
else if (cl='<Settings_Time/>') then Groups.SettingsTime.til := i-1
else if (cl='<Settings_CustomMenu>') then Groups.SettingsCustMenu.from := i
else if (cl='<Settings_CustomMenu/>') then Groups.SettingsCustMenu.til := i-1;
if (cl[1]='<') AND (cl[Length(cl)]='>') AND (cl[Length(cl)-1]<>'/') AND (Pos(' ',cl)=0) then begin
gp := gp + '>' + Copy(cl, 2, Length(cl)-2);
end else if (cl[1]='<') AND (cl[Length(cl)-1]+cl[Length(cl)]='/>') AND (Pos(' ',cl)=0) then begin
gp := Copy(gp,1,Length(gp)-Length(cl)+2);
// gp := StringReplace(gp, '>' + Copy(cl, 2, Length(cl)-3), '', [rfReplaceAll]);
if (i>0) then PB[i-1].LastOfGroup := true;
end else if (Pos('value=', LowerCase(cl))>0) AND (Pos('/>', cl)>0) then begin
Inc(i);
SetLength(PB, i);
PB[i-1].Group := gp;
PB[i-1].Name := Copy(cl, Pos('<', cl)+1, Pos(' ', cl)-Pos('<', cl)-1);
PB[i-1].Value := Copy(cl, Pos('value=', LowerCase(cl))+6, Pos('/>', cl)-Pos('value=', LowerCase(cl))-6);
PB[i-1].LastOfGroup := false;
end else if (Pos('value=', LowerCase(cl))>0) AND (Pos('/>', cl)=0) then begin
Inc(i);
SetLength(PB, i);
PB[i-1].Group := gp;
PB[i-1].Name := Copy(cl, Pos('<', cl)+1, Pos(' ', cl)-Pos('<', cl)-1);
PB[i-1].Value := Copy(cl, Pos('value=', LowerCase(cl))+6, Length(cl)-Pos('value=', LowerCase(cl))-6);
PB[i-1].LastOfGroup := false;
end else if (Pos('value=', LowerCase(cl))=0) AND (Pos('/>', cl)=0) then begin
PB[i-1].Value := PB[i-1].Value + cl;
end else if (Pos('value=', LowerCase(cl))=0) AND (Pos('/>', cl)>0) then begin
PB[i-1].Value := PB[i-1].Value + Copy(cl,1,Pos('/>', cl)-2);
end;
until Eof(InFile);
Form1.ProgressBar.Visible := false;
Form1.DBG_Count.Text := IntToStr(i);
Form1.DBG_SelEntry.MaxValue := i-1;
Form1.DBG_Groups.Text := 'Contacts: '+IntToStr(Groups.Contacts.from)+'..'+IntToStr(Groups.Contacts.til)+CRLF+
'Calendar: '+IntToStr(Groups.Calendar.from)+'..'+IntToStr(Groups.Calendar.til)+CRLF+
'SMSes: '+IntToStr(Groups.SMSes.from)+'..'+IntToStr(Groups.SMSes.til)+CRLF+
'Data: '+IntToStr(Groups.SettingsData.from)+'..'+IntToStr(Groups.SettingsData.til)+CRLF+
'WAP: '+IntToStr(Groups.SettingsWAP.from)+'..'+IntToStr(Groups.SettingsWAP.til)+CRLF+
'Bookmarks: '+IntToStr(Groups.Bookmarks.from)+'..'+IntToStr(Groups.Bookmarks.til)+CRLF+
'Profiles: '+IntToStr(Groups.SettingsProfiles.from)+'..'+IntToStr(Groups.SettingsProfiles.til)+CRLF+
'Locks: '+IntToStr(Groups.SettingsLocks.from)+'..'+IntToStr(Groups.SettingsLocks.til)+CRLF+
'Time: '+IntToStr(Groups.SettingsTime.from)+'..'+IntToStr(Groups.SettingsTime.til)+CRLF+
'CustomMenu: '+IntToStr(Groups.SettingsCustMenu.from)+'..'+IntToStr(Groups.SettingsCustMenu.til);
Form1.StatusBar.SimpleText := 'File openened. Now parsing for Contacts ...';
(*********************************************************************
***** PARSE CONTACTS FROM ARRAY *****
*********************************************************************)
Form1.ProgBarText.Caption := 'Parsing Contacts (1/10) ...';
Application.ProcessMessages;
if (Groups.Contacts.from<$FFFF) then begin
j := 1;
i := Groups.Contacts.from;
Form1.ProgressBar.Min := Groups.Contacts.from;
Form1.ProgressBar.Max := Groups.Contacts.til;
Form1.ProgressBar.Position := Groups.Contacts.from;
Form1.ProgressBar.Visible := true;
while (i<=Groups.Contacts.til) do begin
Form1.ProgressBar.Position := i;
SetLength(PhoneBook, j);
PhoneBook[j-1] := ParsePBStream(PB[i].Value);
Inc(j);
Inc(i);
end;
Form1.StatusBar.SimpleText := 'Loaded '+IntToStr(Length(PhoneBook))+' contacts into memory.';
BuildPBList;
Form1.ProgressBar.Visible := false;
end;
(*********************************************************************
***** PARSE CALENDAR ENTRIES FROM ARRAY *****
*********************************************************************)
Form1.ProgBarText.Caption := 'Parsing Calendar (2/10) ...';
Application.ProcessMessages;
if (Groups.Calendar.from<$FFFF) then begin
end;
(*********************************************************************
***** PARSE SMSes FROM ARRAY *****
*********************************************************************)
Form1.ProgBarText.Caption := 'Parsing SMSes (3/10) ...';
Application.ProcessMessages;
if (Groups.SMSes.from<$FFFF) then begin
end;
(*********************************************************************
***** PARSE DATA ACCOUNTS FROM ARRAY *****
*********************************************************************)
Form1.ProgBarText.Caption := 'Parsing Data accounts (4/10) ...';
Application.ProcessMessages;
if (Groups.SettingsData.from<$FFFF) then begin
end;
(*********************************************************************
***** PARSE WAP ACCOUNTS FROM ARRAY *****
*********************************************************************)
Form1.ProgBarText.Caption := 'Parsing WAP accounts (5/10) ...';
Application.ProcessMessages;
if (Groups.SettingsWAP.from<$FFFF) then begin
end;
(*********************************************************************
***** PARSE BOOKMARKS FROM ARRAY *****
*********************************************************************)
Form1.ProgBarText.Caption := 'Parsing Bookmarks (6/10) ...';
Application.ProcessMessages;
if (Groups.Bookmarks.from<$FFFF) then begin
end;
(*********************************************************************
***** PARSE PROFILES FROM ARRAY *****
*********************************************************************)
Form1.ProgBarText.Caption := 'Parsing Profiles (7/10) ...';
Application.ProcessMessages;
if (Groups.SettingsProfiles.from<$FFFF) then begin
end;
(*********************************************************************
***** PARSE LOCK SETTINGS FROM ARRAY *****
*********************************************************************)
Form1.ProgBarText.Caption := 'Parsing Locks (8/10) ...';
Application.ProcessMessages;
if (Groups.SettingsLocks.from<$FFFF) then begin
end;
(*********************************************************************
***** PARSE TIME SETTINGS FROM ARRAY *****
*********************************************************************)
Form1.ProgBarText.Caption := 'Parsing Time settings (9/10) ...';
Application.ProcessMessages;
if (Groups.SettingsTime.from<$FFFF) then begin
end;
(*********************************************************************
***** PARSE CUSTOM MENUS FROM ARRAY *****
*********************************************************************)
Form1.ProgBarText.Caption := 'Parsing Custom Menus (10/10) ...';
Application.ProcessMessages;
if (Groups.SettingsCustMenu.from<$FFFF) then begin
end;
end;
procedure EnablePBFields(x: boolean);
begin
with Form1 do begin
Label1.Enabled := x;
PB_Name.Enabled := x;
Label2.Enabled := x;
PB_Home.Enabled := x;
Label3.Enabled := x;
PB_Work.Enabled := x;
Label4.Enabled := x;
PB_Mobile.Enabled := x;
Label5.Enabled := x;
PB_Fax.Enabled := x;
Label6.Enabled := x;
PB_Other.Enabled := x;
Label7.Enabled := x;
PB_Email.Enabled := x;
Label8.Enabled := x;
PB_Title.Enabled := x;
Label9.Enabled := x;
PB_Company.Enabled := x;
end;
end;
procedure TForm1.Button_LoadClick(Sender: TObject);
begin
Form1.Button_Load.Enabled := false;
Form1.DirectoryListBox1.Enabled := false;
Form1.DriveComboBox1.Enabled := false;
Form1.FilterComboBox1.Enabled := false;
Form1.FileListBox1.Enabled := false;
Form1.FileName.Visible := false;
Form1.ProgBarText.Visible := true;
BackupFileName := DirectoryListBox1.Directory+'\'+FileName.Text;
StatusBar.SimpleText := 'Loading '+BackupFileName+' ...';
AssignFile(f,BackupFileName);
StatusBar.SimpleText := StatusBar.SimpleText + '...';
Reset(f);
StatusBar.SimpleText := StatusBar.SimpleText + '...';
ReadPBintoMem(f);
StatusBar.SimpleText := StatusBar.SimpleText + ' done.';
CloseFile(f);
Form1.ProgBarText.Visible := false;
Form1.FileName.Visible := true;
Form1.PB_List.Enabled := true;
Form1.PB_OrderGroup.Enabled := true;
Form1.PB_OrderFL.Enabled := true;
Form1.PB_OrderLF.Enabled := true;
Form1.Button_Save.Enabled := true;
Form1.Button_SaveAs.Enabled := true;
Form1.Button_Close.Enabled := true;
end;
procedure TForm1.PB_ListClick(Sender: TObject);
var i: integer;
x: TJPEGImage;
y: TGIFImage;
begin
i := Form1.PB_List.ItemIndex;
x := TJpegImage.Create;
y := TGIFImage.Create;
Form1.PB_Name.Text := FormatName(PhoneBook[i].Name);
Form1.PB_Home.Text := PhoneBook[i].Home;
Form1.PB_Work.Text := PhoneBook[i].Work;
Form1.PB_Mobile.Text := PhoneBook[i].Mobile;
Form1.PB_Fax.Text := PhoneBook[i].Fax;
Form1.PB_Other.Text := PhoneBook[i].Other;
Form1.PB_Email.Text := PhoneBook[i].Email;
Form1.PB_Title.Text := PhoneBook[i].Title;
Form1.PB_Company.Text := PhoneBook[i].Company;
if PhoneBook[i].PhotoFile <> '' then Form1.PB_PhotoAtt.Checked := true else Form1.PB_PhotoAtt.Checked := false;
if (PhoneBook[i].PhotoFile<>'') then begin
if (Pos('.jp',PhoneBook[i].PhotoFile)>0) then begin
x.LoadFromFile(PhoneBook[i].PhotoFile);
Form1.PB_Photo.Picture.Graphic := x;
x.Free;
end;
if (Pos('.gif',PhoneBook[i].PhotoFile)>0) then begin
y.LoadFromFile(PhoneBook[i].PhotoFile);
Form1.PB_Photo.Picture.Graphic := y;
y.Free;
end;
Form1.PB_Photo.Visible := true;
end else Form1.PB_Photo.Visible := false;
EnablePBFields(true);
end;
procedure TForm1.PB_OrderFLClick(Sender: TObject);
begin
BuildPBList;
end;
procedure TForm1.PB_OrderLFClick(Sender: TObject);
begin
BuildPBList;
end;
procedure TForm1.PB_PhotoDelButtonClick(Sender: TObject);
var i: integer;
begin
i := Form1.PB_List.ItemIndex;
DeleteFile(PhoneBook[i].PhotoFile);
PhoneBook[i].PhotoFile := '';
Form1.PB_ListClick(Sender);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
StatusBar.SimpleText := 'Cleaning up ...';
DeleteTemp;
end;
procedure TForm1.FileListBox1Change(Sender: TObject);
begin
if (FileExists(DirectoryListBox1.Directory+'\'+FileName.Text)) AND (Pos('*',FileName.Text)=0) AND (NOT Button_Close.Enabled) then Button_Load.Enabled := true else Button_Load.Enabled := false;
end;
procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
if (FileExists(DirectoryListBox1.Directory+'\'+FileName.Text)) AND (Pos('*',FileName.Text)=0) AND (NOT Button_Close.Enabled) then Button_Load.Enabled := true else Button_Load.Enabled := false;
end;
procedure TForm1.Button_CloseClick(Sender: TObject);
begin
if (Button_Close.Caption = 'Close') then begin
StatusBar.SimpleText := 'Cleaning up ...';
EnablePBFields(false);
PB_List.Enabled := false;
PB_OrderGroup.Enabled := false;
PB_OrderFL.Enabled := false;
PB_OrderLF.Enabled := false;
PB_List.Clear;
PB_Name.Text := '';
PB_Home.Text := '';
PB_Work.Text := '';
PB_Mobile.Text := '';
PB_Fax.Text := '';
PB_Other.Text := '';
PB_Email.Text := '';
PB_Title.Text := '';
PB_Company.Text := '';
PB_PhotoAtt.Checked := false;
PB_Photo.Visible := false;
DeleteTemp;
SetLength(PhoneBook, 0);
StatusBar.SimpleText := StatusBar.SimpleText + ' done.';
Button_Close.Enabled := false;
Button_SaveAs.Enabled := false;
Button_Save.Enabled := false;
if (FileExists(DirectoryListBox1.Directory+'\'+FileName.Text)) AND (Pos('*',FileName.Text)=0) then Button_Load.Enabled := true else Button_Load.Enabled := false;
Form1.DriveComboBox1.Enabled := true;
Form1.DirectoryListBox1.Enabled := true;
Form1.FilterComboBox1.Enabled := true;
Form1.FileListBox1.Enabled := true;
end else if Button_Close.Caption = 'Cancel' then begin
Button_SaveAs.Enabled := true;
Button_Close.Caption := 'Close';
FileName.Text := ExtractFileName(BackupFileName);
FileName.Enabled := false;
end;
end;
procedure TForm1.DBG_ShowEntryClick(Sender: TObject);
var i: integer;
begin
i := Form1.DBG_SelEntry.Value;
Form1.DBG_EntryGroup.Text := PB[i].Group;
Form1.DBG_EntryName.Text := PB[i].Name;
Form1.DBG_Entry.Text := PB[i].Value;
Form1.DBG_LastEntry.Checked := PB[i].LastOfGroup;
end;
procedure TForm1.Button_SaveClick(Sender: TObject);
begin
ShowMessage('Not yet supported.');
if (Button_Close.Caption = 'Cancel') then begin
Button_Close.Caption := 'Close';
FileName.Enabled := false;
BackupFileName := DirectoryListBox1.Directory+'\'+FileName.Text;
Button_SaveAs.Enabled := true;
end;
AssignFile(f, BackupFileName);
end;
procedure TForm1.Button_SaveAsClick(Sender: TObject);
begin
Button_SaveAs.Enabled := false;
Button_Close.Caption := 'Cancel';
FileName.Enabled := true;
FileName.SetFocus;
end;
end.
View Git Blame Copy Permalink