| 31,27 → 31,23 |
|---|
| |
| {$R *.dfm} |
| |
| const |
| ProgrammVersion = '1.5'; |
| |
| // https://www.delphipraxis.net/post43515.html , fixed , works for Delphi 12 Athens |
| function GetHTML(AUrl: string): RawByteString; |
| // http://www.delphipraxis.net/post43515.html |
| Function GetHTML(AUrl: string): string; |
| var |
| databuffer : array[0..4095] of ansichar; // SIC! ansichar! |
| ResStr : ansistring; // SIC! ansistring |
| databuffer : array[0..4095] of char; |
| ResStr : string; |
| hSession, hfile: hInternet; |
| dwindex,dwcodelen,dwread,dwNumber: cardinal; |
| dwcode : array[1..20] of char; |
| res : pchar; |
| Str : pansichar; // SIC! pansichar |
| Str : pchar; |
| begin |
| ResStr:=''; |
| if (system.pos('http://',lowercase(AUrl))=0) and |
| (system.pos('https://',lowercase(AUrl))=0) then |
| if pos('http://',lowercase(AUrl))=0 then |
| AUrl:='http://'+AUrl; |
| |
| // Hinzugefügt |
| if Assigned(Application) then Application.ProcessMessages; |
| application.ProcessMessages; |
| |
| hSession:=InternetOpen('InetURL:/1.0', |
| INTERNET_OPEN_TYPE_PRECONFIG, |
| 61,7 → 57,7 |
|---|
| if assigned(hsession) then |
| begin |
| // Hinzugefügt |
| if Assigned(Application) then application.ProcessMessages; |
| application.ProcessMessages; |
| |
| hfile:=InternetOpenUrl( |
| hsession, |
| 74,7 → 70,7 |
|---|
| dwCodeLen := 10; |
| |
| // Hinzugefügt |
| if Assigned(Application) then application.ProcessMessages; |
| application.ProcessMessages; |
| |
| HttpQueryInfo(hfile, |
| HTTP_QUERY_STATUS_CODE, |
| 92,23 → 88,23 |
|---|
| begin |
| |
| // Hinzugefügt |
| if Assigned(Application) then application.ProcessMessages; |
| application.ProcessMessages; |
| |
| if dwRead =0 then |
| break; |
| databuffer[dwread]:=#0; |
| Str := pansichar(@databuffer); |
| Str := pchar(@databuffer); |
| resStr := resStr + Str; |
| end; |
| end |
| else |
| ResStr := 'Status:'+AnsiString(res); |
| ResStr := 'Status:'+res; |
| if assigned(hfile) then |
| InternetCloseHandle(hfile); |
| end; |
| |
| // Hinzugefügt |
| if Assigned(Application) then application.ProcessMessages; |
| application.ProcessMessages; |
| |
| InternetCloseHandle(hsession); |
| Result := resStr; |
| 116,7 → 112,7 |
|---|
| |
| procedure TInfoForm.Button1Click(Sender: TObject); |
| var |
| temp: RawByteString; |
| temp: string; |
| begin |
| temp := GetHTML('http://www.viathinksoft.de/update/?id=musikbox'); |
| if copy(temp, 0, 7) = 'Status:' then |
| 125,7 → 121,7 |
|---|
| end |
| else |
| begin |
| if GetHTML('http://www.viathinksoft.de/update/?id=musikbox') <> ProgrammVersion then |
| if GetHTML('http://www.viathinksoft.de/update/?id=musikbox') <> '1.5' then |
| begin |
| if Application.MessageBox('Eine neue Programmversion ist vorhanden. Möchten Sie diese jetzt herunterladen?', 'Information', MB_YESNO + MB_ICONASTERISK) = ID_YES then |
| shellexecute(application.handle, 'open', pchar('http://www.viathinksoft.de/update/?id=@musikbox'), '', '', sw_normal); |