Thread: DRMcalc
View Single Post
Old 16-10-2005, 23:10   #3
carknue
Registered User
 
carknue's Avatar
 
Join Date: Dec 2002
Location: Frankfurt, Germany
Posts: 1,321
Re: Re: DRMcalc

Quote:
Originally posted by dk8cb


I'm sorry to say that I don't like any software to connect to somewhere without it having a built-in feature to disable that.

Roland

Here is the code of the TX location update function for those who don't trust it. First URL is just a trigger for a downloadcounter. Here is nothing downladed because this function cannot execute the download script. The second downloads the drmtx.txt file and that is a simple text file.

if chkupdate.Checked then
begin
Memo1.Lines.Text:=GetURLByIndy('http://www.downloadcounter.com/cgi-bin/download.pl?username=carknue&account=66');
Memo1.Lines.Text:=GetURLByIndy('http://home.arcor.de/carsten.knuetter/drmtx.txt');
if Memo1.Lines.Text<>'' then
begin
StringList1:=TStringList.Create;
StringList2:=TStringList.Create;
Memo1.Lines.SaveToFile(ExePfad+'drmtx.new');
StringList1.LoadFromFile(ExePfad+'drmtx.new');
try
StringList2.LoadFromFile(ExePfad+'drmtx.txt');
except
end;
StatusBar1.Panels[2].Text:='TX location update: ok';
if StringList1.count = StringList2.count then
begin
for t:=0 to StringList1.Count-1 do
begin
if StringList1[t]<>StringList2[t] then
begin
Memo1.Lines.SaveToFile(ExePfad+'drmtx.txt');
StatusBar1.Panels[2].Text:='TX location update: updated';
end;

end;
end
else
begin
Memo1.Lines.SaveToFile(ExePfad+'drmtx.txt');
StatusBar1.Panels[2].Text:='TX location update: updated';
end;
end
else
begin
StatusBar1.Panels[2].Text:='TX location update: failed!';
//showmessage('Update failed');
end;
end;
__________________
regards, Carsten
AOR 7030 + Wellbrook ALA 1530P & DWT + Degen DE31 + TG33

Free DRM Tools for analysing, controling and automating your DRM reception and logging
carknue is offline   Reply With Quote