1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
{}
const
optLogin :pAnsiChar='lfm/login';
optPassword:pAnsiChar='lfm/password';
optTries :pAnsiChar='lfm/tries';
optScrobble:pAnsiChar='lfm/scrobble';
optLanguage:pAnsiChar='lfm/language';
procedure SaveOpt;
var
tmppass:array [0..255] of AnsiChar;
begin
if lfm_password<>nil then
begin
StrCopy(tmppass,lfm_password);
CallService(MS_DB_CRYPT_ENCODESTRING,StrLen(tmppass)+1,lparam(@tmppass));
end;
DBWriteString(0,PluginShort,optPassword,tmppass);
DBWriteString(0,PluginShort,optLogin ,lfm_login);
DBWriteByte (0,PluginShort,optTries ,lfm_tries);
DBWriteByte (0,PluginShort,optScrobble,lfm_on and 1);
DBWriteWord (0,PluginShort,optLanguage,lfm_lang);
end;
procedure LoadOpt;
begin
lfm_lang :=DBReadWord(0,PluginShort,optLanguage,0);
lfm_tries:=DBReadByte(0,PluginShort,optTries ,3);
lfm_on :=DBReadByte(0,PluginShort,optScrobble,0);
mFreeMem(lfm_login ); lfm_login :=DBReadString(0,PluginShort,optLogin);
mFreeMem(lfm_password); lfm_password:=DBReadString(0,PluginShort,optPassword);
if lfm_password<>nil then
CallService(MS_DB_CRYPT_DECODESTRING,StrLen(lfm_password)+1,lparam(lfm_password));
if (lfm_login=nil) or (lfm_password=nil) then
CallService(MS_POPUP_SHOWMESSAGEW,
wparam(TranslateW('Don''t forget to enter Login and Password to use Last.fm service')),
SM_WARNING);
end;
procedure FreeOpt;
begin
mFreeMem(lfm_login);
mFreeMem(lfm_password);
end;
|
