Version:0.9 StartHTML:0000000105 EndHTML:0000169217 StartFragment:0000000141 EndFragment:0000169199
program EarthScriptShow;
//{$IFDEF Lazarus}
//  {$APPTYPE CONSOLE}  ☮ ✞ π 📌 ☮ ✞ π 📌 🐞🐞🐞
//{/$ENDIF}
//https://apilayer.com/marketplace/image_to_text-api?txn=free&e=Sign%20Up&l=Success&live_demo=show
//https://apilayer.com/marketplace/geo-api?live_demo=show
//https://api-ninjas.com/api/randomimage
const
  USERAGENT5 = 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko)'+
                   ' Chrome/126.0.0.0 Safari/537.36 Edg/126.0.0.0 '; 
  USERAGENT3 = 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko)'+
                   ' Chrome/125.0.0.0 Safari/537.3'; // chrome + win   
  USERAGENT4 = 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_7) AppleWebKit/605.1.15'+
                   ' (KHTML, like Gecko) Version/17.4.1 Safari/605.1.1';           // safari + mac
  USERAGENT1 = 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 '+    // edge + win
                   '(KHTML, like Gecko) Chrome/126.0.0.0 Safari/537.36 Edg/126.0.0.';               
procedure getjpegfromresname5(const resname: string; bstretch: boolean);
var frm1:TForm;
begin
   frm1:= TForm.create(nil);
    with frm1 do begin
      caption:='maXbox5 Pics';
      with TImage.create(frm1) do begin
        parent:= frm1;
        align:= alclient;
        Picture.Graphic:=loadjpegresource5(hinstance, resname);//(JPGImage);
        {frm1.}setBounds(0,0,Picture.Graphic.Width+2,Picture.Graphic.Height+2);
        if bstretch then
           stretch:= true;
      end;
    Show;
  end;
end;

function GEO_to_text_API2_randimage(AURL, url_name, aApikey: string): string;
var httpq: THttpConnectionWinInet;
    rets, rets2: TMemoryStream;  
    heads: TStrings; iht: IHttpConnection; //losthost:THTTPConnectionLostEvent;
begin
  httpq:= THttpConnectionWinInet.Create(true); 
  rets:= TMemoryStream.create;
  rets2:= TMemoryStream.create;
  heads:= TStringlist.create;     
  try 
    heads.add('X-Api-Key='+aAPIkey);
    //heads.add('Accept=image/jpg');
    iht:= httpq.setHeaders(heads);
    httpq.Get(Format(AURL,[urlencode(url_name)]), rets);
    if httpq.getresponsecode=200 Then begin
       writeln('size of '+itoa(rets.size));
       rets.Position:= 0;
       ALMimeBase64decodeStream(rets, rets2)
       //Base64decode(rets) //StreamToBase64(rets)
       rets2.savetofile((exepath+'randimage.jpg'));
       openfile(exepath+'randimage.jpg');
     end  
      else result:='Failed:'+
             itoa(Httpq.getresponsecode)+Httpq.GetResponseHeader('message');
  except  
    writeln('EWI_HTTP: '+ExceptiontoString(exceptiontype,exceptionparam));
  finally
    httpq:= Nil;
    heads.Free;
    rets.Free;
    rets2.Free;
  end;                  
end;                 //}
var backstr, validtext: string;  IdDecoderMIME: TIdDecoderMIME;
    t_latlong: TLatlong;
Begin //@main
  //FilelessWB2PNG('https://www.pngrepo.com/png/429486/60/digger-excavator-shovel.png');
  //FilelessWB2PNG('https://wiki.gnome.org/Apps/EyeOfGnome?action=AttachFile&do=get&target=screenshot.png');
  {internal= function in box, inside=function in script, 
   outside= function from DLL, external= function from Web API}
  
    setdebugON;    
    if MBVERI >= 529 then begin
      playreswav2('funky','wav');  //sync
      //intrnal
      //getjpegfromresname('kraftwerk',false);
      getjpegfromresname('EVEREST',true);
      getjpegfromresname('SEASIDE',true);
      getjpegfromresname('MAP7',false);
      getjpegfromresname('EARTH10',false);
      //inside
      getjpegfromresname5('EARTH10',false);
      playreswav('computermagic','wav'); //async
      getjpegfromresname('EARTH2',true);  
   end;   
 End.
Ref: http://www.softwareschule.ch/images/ekon29logo.png
     https://entwickler-konferenz.de/speaker/max-kleiner/
http://www.rolandmuseum.de/syn_ana.php
https://www.coderstool.com/unicode-text-converter
Answer2similarity: 0.918471693992615
https://api.api-ninjas.com/v1/qrcode?format=png&data=maXbox5
[
fact": "Tobacco kills more Americans each year than alcohol, cocaine, crack, 
heroin, homicide, suicide, car accidents, 
fire and AIDS combined"}]
True
[
fact": "The size of a red blood cell is 708 microns. This is equivalent to one millionth of a meter"}]
True
[
fact": "A superstition in baseball is to never lend your bat to anyone or you will be jinxed"}]
True
fact": "In 1886, Coca-cola was first served at a pharmacy in Atlanta, Georgia for only five cents a glass. A pharmacist named 
John Pemberton created the formula for Coca-cola"}]
debug: 119-The requested header could not be located. 854 err:20
Status3: 
debug: 120- 854 err:21
Null Pointer Exception at 854.1916
debug: 240- 4294967295 err:0
debug: 241-The request has timed out. 854 err:20
Status3: 
debug: 242- 854 err:21
Null Pointer Exception at 854.1755
debug: 248- 4294967295 err:0
debug: 249-The request has timed out. 854 err:20
EWI_HTTP: Exception: The request has timed out.
Status3: 
debug: 250- 854 err:21
Null Pointer Exception at 854.1876
debug: 146- 4294967295 err:0
debug: 147-Can not send REST message https://api.apilayer.com/geo/country/capital/Athen, error:  (524) 834 err:20
EWI_HTTP: Exception: Can not send REST message https://api.apilayer.com/geo/country/capital/Athen, error:  (524)
debug: 148-Access violation at address 000000000191A36F in module 'maXbox5.exe'. Read of address 0000000000000000 0 err:20
Exception: Access violation at address 000000000191A36F in module 'maXbox5.exe'. Read of address 0000000000000000 at 0.180
debug: 274-WinHttp.WinHttpRequest: The server name or address could not be resolved
 887 err:20
debug: 275-WinHttp.WinHttpRequest: The server name or address could not be resolved
 887 err:20
Exception: WinHttp.WinHttpRequest: The server name or address could not be resolved
 at 887.1279
[{"code":"U+1F642","character":"🙂","image":
"https:\/\/api-ninjas-data.s3.us-west-2.amazonaws.com\/emojis\/U%2B1F642.png",
"name":"slightly smiling face","group":"smileys_emotion","subgroup":"face_smiling"}]

뿯뾃胡誙駤쒉ƀ胄胄붿è
³¤î‚€è‚ è›˜èŸ˜êƒ ï¿½î‚‡èž¤êƒ î‚‰èª°ë“ î‚”責냠
馈볠钴볡麴냡鲀룢Ꞁ냢î†
¢êŽ°êƒ¢îŠœëž¤èƒ£îŽ¬ë†éƒ£îŠ´é¾œë“£îŽ¹
뢈룢뎐볯쎲얛覤냠记든趠
蓢鲄裣늈裣늈裣늈裣늈Ã
¨Â£Â£Ã®Å½Â²Ã«Å Ë†Ã¨Â£Â£Ã®Å½Â²
늈裣늈裣늈裣늈裣늈裣ëŠ
ˆè££îŽ²ëŠˆè££î²²ë¾ƒè“¡ì’€ì®ˆìº îŠ€è†ˆèƒˆé‡„è
“¡î¾ƒè†¼è“ƒìŸì’€ì’…쒁Ɓ
 mX5🐞 executed: 12/04/2024 10:25:19  Runtime: 0:0:4.476  Memload: 68% use
    
    In this code snippet:
Replace https://connect.aerius.nl/api/v7/receptorSets with your actual API endpoint.
Adjust the cFileName variable to point to the correct file path.
Ensure that the api-key header is set appropriately.
Additionally, note that the ContentType and ContentTransfer properties need to be set 
for each form field. You can set them explicitly as shown below:
debug size: 10146
[{"name":"France","alpha2code":"FR","alpha3code":"FRA","capital":"Paris","alt_spellings":["FR","French Republic","République française"],
"region":"Europe","subregion":"Western Europe","population":66710000,"latitude":46.0,"longitude":2.0,"demonym":"French","area":640679.0,
"gini":32.7,"timezones":["UTC-10:00","UTC-09:30","UTC-09:00","UTC-08:00","UTC-04:00","UTC-03:00","UTC+01:00","UTC+03:00","UTC+04:00","UTC+05:00",
"UTC+11:00","UTC+12:00"],"borders":["AND","BEL","DEU","ITA","LUX","MCO","ESP","CHE"],"native_name":"France","numeric_code":"250",
"flag":"http:\/\/assets.promptapi.com\/flags\/FR.svg","top_level_domains":[".fr"],"calling_codes":["33"],"currencies":
[{"name":"Euro","code":"EUR","symbol":"€"}],
"languages":[{"name":"French","native_name":"français","iso639_1":"fr","iso639_2":"fra"}],"regional_blocs":[{"acronym":"EU","name":"European Union"}]}]
 mX5?? executed: 08/04/2024 18:20:53  Runtime: 0:0:33.394  Memload: 63% use
RemObjects Pascal Script. Copyright (c) 2004-2024 by RemObjects Software & maXbox5
Ver: 5.1.4.90 (514). Workdir: C:\maxbox\ipso\IBZ_Module1_4_2022\maxbox4Aarau\maxbox5\maxbox5
“I knew from the start that I was bound to be crucified either way I moved. If I left the woman I really loved Ã¢â‚¬â€ the Great Society Ã¢â‚¬â€ 
in order to get involved in that bitch of a war on the other side of the world, then I would 
lose everything at home. All my programs. Ã¢â‚¬Â¦ But if I left that war and let the Communists 
take over South Vietnam, then I would be seen as a coward and my nation would be seen as 
an appeaser and we would both find it impossible to accomplish anything for anybody 
anywhere on the entire globe.”
Ver: 5.1.4.90 (514). Workdir: C:\maxbox\ipso\IBZ_Module1_4_2022\maxbox4Aarau\maxbox5\maxbox5
EWI_HTTP: Exception: Can not send REST message https://api.apilayer.com/geo/country/capital/Vienna, error:  (524)
Exception: Access violation at address 00000000019D9080 in module 'maXbox5.exe'. Read of address 0000000000000000 at 0.298
Doc: The fact that error code is not "one of the expected return values" tells for the versions that the error comes from an 
underlying layer and this 
API just passes it up on internal failure. As a clue, having disabled some network adapter on the system, you might get rid of the error.
 mX5?? executed: 08/04/2024 15:57:23  Runtime: 0:0:3.538  Memload: 62% use
RemObjects Pascal Script. Copyright (c) 2004-2024 by RemObjects Software & maXbox5
Ver: 5.1.4.90 (514). Workdir: C:\maxbox\ipso\IBZ_Module1_4_2022\maxbox4Aarau\maxbox5\maxbox5
----app_template_loaded_code----
----File newtemplate.txt not exists - now saved!----
https://medium.com/@abhay.anand/day-3-linux-commands-you-should-know-65fb849561cc
https://medium.com/100-days-of-linux/7-fundamental-use-cases-of-netcat-866364eb1742
https://medium.com/@saravra/how-to-study-cybersecurity-64ee0478e87e
New in maXbox 5.2.9.170 (June 18, 2025)
New in maXbox 5.1.8.120 (June 18, 2025)
New in maXbox 5.1.6.98 (August 30, 2024)
New in maXbox 5.1.4.98 (June 30, 2024)
New in maXbox 5.1.4.95 (April 17, 2024)
New in maXbox 5.1.4.90 (March 21, 2024)
New in maXbox 4.7.6.50 (June 15, 2023)
New in maXbox 4.7.6.20 (December 15, 2022)
New in maXbox 4.7.6.10 (November 12, 2021)
New in maXbox 4.7.5.80 (July 22, 2021)
New in maXbox 4.7.4.64 (June 14, 2020)
New in maXbox 4.7.4.62 (June 8, 2020)
New in maXbox 4.7.4.60 (April 21, 2020)
New in maXbox 4.7.3.60 (April 15, 2020)
New in maXbox 4.7.2.82 (April 7, 2020)
New in maXbox 4.7.1 (November 15, 2019)
New in maXbox 4.6.3.10 (August 6, 2019)
New in maXbox 4.5.8.10 (December 27, 2017)
New in maXbox 4.2.8.10 (October 24, 2017)
New in maXbox 4.2.6.10 (August 24, 2017)
New in maXbox 4.2.5.10 (February 20, 2017)
New in maXbox 4.2.4.80 (October 21, 2016)
New in maXbox 4.2.4.60 (September 30, 2016)
New in maXbox 4.2.4.25 (June 8, 2016)
New in maXbox 4.2.2.90 (April 25, 2016)
New in maXbox 4.2.0.80 (April 15, 2016)
New in maXbox 4.0.2.60 (February 2, 2016)
New in maXbox 3.9.9.195 (May 19, 2015)
New in maXbox 3.9.9.190 (March 20, 2015)
New in maXbox 3.9.9.180 (February 12, 2015)
New in maXbox 3.9.9.160 (January 14, 2015)
New in maXbox 3.9.9.120 (November 29, 2014)
New in maXbox 3.9.9.110 (November 12, 2014)
New in maXbox 3.9.9.101 (October 25, 2014)
New in maXbox 3.9.9.100 (October 10, 2014)
New in maXbox 3.9.9.98 (July 25, 2014)
New in maXbox 3.9.9.96 (May 15, 2014)
New in maXbox 3.9.9.95 (April 24, 2014)
New in maXbox 3.9.9.94 (March 28, 2014)
New in maXbox 3.9.9.92 (March 20, 2014)
New in maXbox 3.9.9.91 (March 12, 2014)
New in maXbox 3.9.9.88 (February 10, 2014)
New in maXbox 3.9.9.86 (January 27, 2014)
New in maXbox 3.9.9.85 (January 15, 2014)
New in maXbox 3.9.9.84 (January 6, 2014)
New in maXbox 3.9.9.82 (December 16, 2013)
New in maXbox 3.9.9.81 (December 3, 2013)
New in maXbox 3.9.9.80 (November 11, 2013)
New in maXbox 3.9.9.60 (October 21, 2013)
New in maXbox 3.9.9.20 (October 9, 2013)
New in maXbox 3.9.9.18 (September 30, 2013)
New in maXbox 3.9.9.16 (September 17, 2013)
New in maXbox 3.9.9.8 (September 13, 2013)
New in maXbox 3.9.9.7 (August 27, 2013)
New in maXbox 3.9.9.6 (August 7, 2013)
New in maXbox 3.9.9.5 (July 24, 2013)
New in maXbox 3.9.9.1 (June 24, 2013)
New in maXbox 3.9.8.9 (June 10, 2013)
New in maXbox 3.9.8.8 (May 13, 2013)
New in maXbox 3.9.8.6 (April 10, 2013)
New in maXbox 3.9.8.3 (March 18, 2013)
New in maXbox 3.9.8 (February 28, 2013)
New in maXbox 3.9.7.4 (January 22, 2013)
New in maXbox 3.9.7.1 (January 22, 2013)
New in maXbox 3.9.7 (December 3, 2012)
New in maXbox 3.9.6.3 (November 14, 2012)
New in maXbox 3.9.4.4 (October 16, 2012)
New in maXbox 3.9.3.5 (September 26, 2012)
New in maXbox 3.9.2 (August 31, 2012)
New in maXbox 3.9.1 (June 14, 2012)
New in maXbox 3.9.0 (May 23, 2012)
New in maXbox 3.8.6.4 (May 11, 2012)
New in maXbox 3.8.6 (April 20, 2012)
New in maXbox 3.8.5 (April 3, 2012)
New in maXbox 3.8.4 (March 2, 2012)
New in maXbox 3.8.2 (January 20, 2012)
New in maXbox 3.8.1 (January 3, 2012)
New in maXbox 3.8.0.9 (December 20, 2011)
New in maXbox 3.7.1 (December 6, 2011)
New in maXbox 3.7.0.2 (November 9, 2011)
New in maXbox 3.6.3.0 (November 3, 2011)
New in maXbox 3.6.2.0 (October 22, 2011)
New in maXbox 3.6.1.2 (October 12, 2011)
New in maXbox 3.6.0.2 (October 3, 2011)
New in maXbox 3.5.0.6 (September 1, 2011)
New in maXbox 3.3.0.4 (June 27, 2011)
New in maXbox 3.2.0 (March 25, 2011)
New in maXbox 3.1.0 (February 24, 2011)
New in maXbox 3.0.0 (December 20, 2010)
New in maXbox 2.9.2 (July 23, 2010)
New in maXbox 2.9 (June 3, 2010)

Zeus64 commented on 18 May 2020
C:\Users\Public\Documents\Embarcadero\Studio\21.0\Samples\Object Pascal\VCL\InetWinSockets
64bit build box
procedure TDynamicDll.DoOpenDll(const aDllName : string);
{$IFDEF MSWINDOWS}
const
  LOAD_LIBRARY_SEARCH_DLL_LOAD_DIR = $00000100;
  LOAD_LIBRARY_DEFAULT_DIRS = $00001000;
Var
  ExceptMask: TFPUExceptionMask;
{$ENDIF}
begin
  if not IsHandleValid then begin
    FDllName := aDllName;
    {$IFDEF MSWINDOWS}
    ExceptMask := GetExceptionMask;
    try
      {$IFDEF FPC}
      FDLLHandle := LoadLibraryExA(PAnsiChar(AnsiString(GetDllPath+DllName)),
      {$ELSE}
      /// [dcc64 Error] PythonEngine.pas(2965): E2010 Incompatible types: 'PWideChar' and 'PAnsiChar'
      FDLLHandle := LoadLibraryEx(PWidechar(GetDllPath+DllName),
      {$ENDIF}
        0, LOAD_LIBRARY_SEARCH_DLL_LOAD_DIR or LOAD_LIBRARY_DEFAULT_DIRS);
    finally
      SetExceptionMask(ExceptMask);
    end;
    {$ELSE}
    //Linux: need here RTLD_GLOBAL, so Python can do "import ctypes"
    FDLLHandle := THandle(dlopen(PAnsiChar(AnsiString(GetDllPath+DllName)),
      RTLD_LAZY+RTLD_GLOBAL));
    {$ENDIF}
  end;
end;
function TMethodsContainer.AddMethod( AMethodName  : PAnsiChar;
                                      AMethod  : PyCFunction;
                                      ADocString : PAnsiChar ) : PPyMethodDef;
begin
  if FMethodCount = FAllocatedMethodCount then
    ReallocMethods;
  Result := Methods[ MethodCount ];
  Result^.ml_name  := AMethodName;
  Result^.ml_meth  := AMethod;
  Result^.ml_flags := METH_VARARGS;
  Result^.ml_doc   := ADocString;
  Inc( FMethodCount );
end;

from delphi_module import svg_image
from io import StringIO
import numpy as np
import pandas as pd
import matplotlib.pyplot as plt
from sklearn.linear_model import  BayesianRidge
from sklearn.model_selection import RandomizedSearchCV, train_test_split
from sklearn.preprocessing import PolynomialFeatures
from sklearn.metrics import mean_squared_error, mean_absolute_error
from sklearn.utils import parallel_backend
parallel_backend('threading')
import datetime
import warnings
warnings.filterwarnings("ignore")
confirmed_df = pd.read_csv('https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/
csse_covid_19_time_series/time_series_covid19_confirmed_global.csv')
parallel_backend('threading')
cols = confirmed_df.keys()
confirmed = confirmed_df.loc[:, cols[4]:cols[-1]]
dates = confirmed.keys()
world_cases = []
for i in dates:
    confirmed_sum = confirmed[i].sum()
    world_cases.append(confirmed_sum)
# window size window = 7
days_since_1_22 = np.array([i for i in range(len(dates))]).reshape(-1, 1)
world_cases = np.array(world_cases).reshape(-1, 1)
days_in_future = 10
future_forcast = np.array([i for i in range(len(dates)+days_in_future)]).reshape(-1, 1)
start = '1/22/2020'
start_date = datetime.datetime.strptime(start, '%m/%d/%Y')
future_forcast_dates = []
for i in range(len(future_forcast)):
    future_forcast_dates.append((start_date + datetime.timedelta(days=i)).strftime('%m/%d/%Y'))
X_train_confirmed, X_test_confirmed, y_train_confirmed, y_test_confirmed = train_test_split(days_since_1_22[50:], world_cases[50:], test_size=0.05, shuffle=False)
# transform our data for polynomial regression
bayesian_poly = PolynomialFeatures(degree=5)
bayesian_poly_X_train_confirmed = bayesian_poly.fit_transform(X_train_confirmed)
bayesian_poly_X_test_confirmed = bayesian_poly.fit_transform(X_test_confirmed)
bayesian_poly_future_forcast = bayesian_poly.fit_transform(future_forcast)
# bayesian ridge polynomial regression
tol = [1e-6, 1e-5, 1e-4, 1e-3, 1e-2]
alpha_1 = [1e-7, 1e-6, 1e-5, 1e-4, 1e-3]
alpha_2 = [1e-7, 1e-6, 1e-5, 1e-4, 1e-3]
lambda_1 = [1e-7, 1e-6, 1e-5, 1e-4, 1e-3]
lambda_2 = [1e-7, 1e-6, 1e-5, 1e-4, 1e-3]
normalize = [True, False]
bayesian_grid = {'tol': tol,'alpha_1': alpha_1,'alpha_2' : alpha_2,'lambda_1': lambda_1,'lambda_2' : lambda_2,
                 'normalize' : normalize}
bayesian = BayesianRidge(fit_intercept=True)
bayesian_search = RandomizedSearchCV(bayesian, bayesian_grid, scoring='neg_mean_squared_error', cv=3, return_train_score=True, n_jobs=-1, n_iter=40, verbose=1)
bayesian_search.fit(bayesian_poly_X_train_confirmed, y_train_confirmed)
print(bayesian_search.best_params_)
bayesian_confirmed = bayesian_search.best_estimator_
test_bayesian_pred = bayesian_confirmed.predict(bayesian_poly_X_test_confirmed)
bayesian_pred = bayesian_confirmed.predict(bayesian_poly_future_forcast)
print('MAE:', mean_absolute_error(test_bayesian_pred, y_test_confirmed))
print('MSE:',mean_squared_error(test_bayesian_pred, y_test_confirmed))
plt.plot(y_test_confirmed)
plt.plot(test_bayesian_pred)
plt.legend(['Test Data', 'Bayesian Ridge Polynomial Predictions'])
figfile = StringIO()
plt.savefig(figfile, format='svg')
figdata_svg = figfile.getvalue()
svg_image.SvgText = figdata_svg
#plt.show()
C:\Program Files\Streaming\maxbox4>git clone https://github.com/Embarcadero/python4delphi
Cloning into 'python4delphi'...
remote: Enumerating objects: 7345, done.
remote: Counting objects: 100% (286/286), done.
remote: Compressing objects: 100% (125/125), done.
remote: Total 7345 (delta 169), reused 268 (delta 161), pack-reused 7059
Receiving objects: 100% (7345/7345), 196.71 MiB | 20.92 MiB/s, done.
Resolving deltas: 100% (4968/4968), done.
Updating files: 100% (469/469), done.
C:\Program Files\Streaming\maxbox4>
C:\Program Files\Streaming\maxbox4>git clone https://github.com/pyscripter/MultiInstaller
Cloning into 'MultiInstaller'...
remote: Enumerating objects: 47, done.
remote: Counting objects: 100% (11/11), done.
remote: Compressing objects: 100% (11/11), done.
remote: Total 47 (delta 1), reused 3 (delta 0), pack-reused 36
Receiving objects: 100% (47/47), 3.21 MiB | 8.90 MiB/s, done.
Resolving deltas: 100% (12/12), done.
C:\Program Files\Streaming\maxbox4>
C:\Program Files\Streaming\maxbox4>git clone https://github.com/project-jedi/jcl
Cloning into 'jcl'...
remote: Enumerating objects: 83063, done.
remote: Counting objects: 100% (448/448), done.
remote: Compressing objects: 100% (178/178), done.
remote: Total 83063 (delta 303), reused 383 (delta 266), pack-reused 82615
Receiving objects: 100% (83063/83063), 80.63 MiB | 26.36 MiB/s, done.
Resolving deltas: 100% (65805/65805), done.
Updating files: 100% (3631/3631), done.
C:\Program Files\Streaming\maxbox4>git clone https://github.com/project-jedi/jvcl
Cloning into 'jvcl'...
remote: Enumerating objects: 192049, done.
remote: Counting objects: 100% (761/761), done.
remote: Compressing objects: 100% (240/240), done.
remote: Total 192049 (delta 527), reused 729 (delta 510), pack-reused 191288
Receiving objects: 100% (192049/192049), 85.74 MiB | 1.27 MiB/s, done.
Resolving deltas: 100% (148220/148220), done.
Updating files: 100% (21894/21894), done.
C:\Program Files\Streaming\maxbox4>
Malware die eine  fixe Signatur haben sind meist sehr einfach zu beheben, weshalb statische Analysen eine höhere Fix-Rate (28 Prozent) aufweisen, $
als dynamische Analysen. Nicht jedes der beiden Verfahren
 eignet sich für bestimmte Schwachstellen. Beide Bewertungstechniken unterscheiden sich grundlegend und weisen dadurch unterschiedliche 
 Prävalenzen aus.
Ich hätte eine Unterscheidung in statische und dynamische Analyse / Monitoring gemacht.
Generating a PDF via VLCCanvas and TPdfDocumentGDI causes access violation when compiled with Delphi 10.4.1 with record field alignment compiler option 
set to "byte" or "off". When this option is set to either of "word", "double word" or "quad word", the PDF gets created without errors. The same exact 
code works fine when compiled with Delphi 10.4 (patch 3), regardless of the field alignment flag.
It smells like an off-by-one error somewhere (that's why introducing gaps between record fields circumvents it), but I wasn't able to pinpoint it. 
The exception appears in TPdfWrite.Save method, where the L variable seems to be assigned a meaningless value (zero or negative). 
But since there's a lot of pointer math and memory copying, the actual cause might as well be completely elsewhere.
<iframe src="data:application/pdf;base64,YOUR_BINARY_DATA" height="100%" width="100%"></iframe>
----Simple Browser started----
TEE Modell News 2024  ☮ ✞ π      â˜® âœž Ï€ ðŸ“Œ
Aktuell in den Handel gekommen ist ja im 2023 schon das Modell der PIKO Re 4/4 I 10034. Es zeigt die Ausführung so wie sie ab 
1973 in den Betrieb kam, also mit dem neuen SBB-Logo in Form einer Frontplatte, die breitere Wippe und den vier Einschnitten 
im Stromabnehmersockel für den Verkehr nach Lindau (DB/ÖBB Wipe).
Nun kommt neu auch die 10033 von Piko in den Handel. Das Modell, als Winterneuheiten 2024/25 deklariert, ÃƒÂ¼berzeugt durch gelungenen Formenbau, 
feingliedrige Pantographen aus Metall, einen vorbildgerechten Dachgarten und zahlreiche angesetzte Details.
Foto Quelle: Piko
-teetime2_re44_10033_48024_96889.jpg
-teetime2_re44_10033_48024_96889_2.jpg

Interessant zu wissen ist, dass die Re 4/4 I 10033 2.Serie die letzte in der TEE Lackierung war. Es waren
ja die vier Lok Nr. 10033, 10034, 10046 und 10050 mit rot/beigen Anstrich.
Zudem kommt für den Schweizer Fachhandel die grüne SBB Re 4/4 I 10040 
mit kleinen TEE-Logos an den Fronten (DC 96886, DC digital Sound 96887, AC digital Sound 96888) in den Handel. Das
Modell hat ÃƒÂ¼brigens fahrtrichtungsabhängiger Lichtwechsel 3x weiss vorne und 1x weiss hinten.
Mittlerweile ist es schon erstaunlich und beachtenswert, was PIKO an Modellen nach Schweizer Vorbildern anbietet.
Wobei für viele Deutsche oder Franzosen ÃƒÂ¤rgerlich ist, das wieder einmal Schweiz exklusiv ist.
Als Referenz zur Re 4/4 I liste ich kurz die Märklins auf.
Die mir somit bekannten, neueren Re 4/4 I Märklin Loks (mit C Sinus Kompaktmotor ) sind folgende Loks:

-  Lok 10015, grün, ohne TEE Logo, Gussgehäuse und C Sinus Motor, Modell Nr. 39420 aus dem Jahr 2006 - 2009
-  Lok 10033, TEE Schema, Zentral Mittelmotor, von der Zugpackung des TEE Bavaria, Modell #26557
-  Lok 10040, grün, mfx und Sound, Modell Nr. 37044 , aus dem Jahr 2010
-  Lok 10044, grün mit rotem TEE Frontschild, mfx und Sound, aus der Rheingold Zugpackung 26604
Eine weiter Neuheit und mein persönlicher Favorit ist die Hornby/Jouef E-Lok CC 6511. Die als Mistral firmierte
Lok hat optimale Laufeigenschaften und authentisches Design. Die Lieferung erfolgt in 
Silber nit Mistral-Logo und im Kern werkelt ein 5-poliger Motor mit Schrägwicklung. Bei Arwico ist noch 
ein Lagerbestand von 4 erhältlich. Ich hab die Lok für Testfahrten gleich neben 
die CC 6512 Etendard gestellt, siehe Foto:

- teetime1_mistral_20240330_095942.jpg

Die CC 6511 war eine der letzten 1,5-kV-Lokomotiven, die man ohne Leistungselektronik entwickelt hat.
Sie konnte sowohl Personenzüge mit 200 km/h als auch Güterzüge mit 100 km/h ziehen. 
Ihr Design basiert auf den ursprünglichen "nez cassés" (gebrochene Nasen als Anspielung auf die 
geneigten Windschutzscheiben) der CC 40100, die ebenfalls von Paul Arzens gestaltet wurden.
Im nächsten TEE-Time erfolgt ein Bericht zu den neuen 21000er Modellen Cisalpin von Arnold, L.S. und Jouef.
Aus Katalog 1982 K.P.E.V. - Königlich Preußische Eisenbahn-Verwaltung
Beschreibung:Personenwagen/Durchgangswagen, 2-achsig, 1. Klasse, beige (creme)/rot
Bemerkung:mit Fantasielackierung einer imaginären Privatbahn, Zuglaufschild Ã‚´Central´
function request(const AUrl, AData: AnsiString; blnSSL: Boolean = True): AnsiString;
var
  aBuffer     : Array[0..4096] of Char;
  Header      : TStringStream;
  BufStream   : TMemoryStream;
  sMethod     : AnsiString;
  BytesRead   : Cardinal;
  pSession    : HINTERNET;
  pConnection : HINTERNET;
  pRequest    : HINTERNET;
  parsedURL   : TStringArray;
  port        : Integer;
  flags       : DWord;
begin
  ParsedUrl := ParseUrl(AUrl);
  Result := '';
  pSession := InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if Assigned(pSession) then
  try
    if blnSSL then
      Port := INTERNET_DEFAULT_HTTPS_PORT
    else
      Port := INTERNET_DEFAULT_HTTP_PORT;
    pConnection:= InternetConnect(pSession, PChar(ParsedUrl[0]), port, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
    if Assigned(pConnection) then
    try
      if (AData = '') then
        sMethod := 'GET'
      else
        sMethod := 'POST';
      if blnSSL then
        flags := INTERNET_FLAG_SECURE or INTERNET_FLAG_KEEP_CONNECTION
      else
        flags:= INTERNET_SERVICE_HTTP;
      pRequest:= HTTPOpenRequest(pConnection, PChar(sMethod), PChar(ParsedUrl[1]), nil, nil, nil, flags, 0);
      if Assigned(pRequest) then
      try
        Header := TStringStream.Create('');
        try
          with Header do begin
            WriteString('Host: ' + ParsedUrl[0] + sLineBreak);
            WriteString('User-Agent: Custom program 1.0'+SLineBreak);
            WriteString('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'+SLineBreak);
            WriteString('Accept-Language: en-us,en;q=0.5' + SLineBreak);
            WriteString('Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7'+SLineBreak);
            WriteString('Keep-Alive: 300'+ SLineBreak);
            WriteString('Connection: keep-alive'+ SlineBreak+SLineBreak);
          end;
          HttpAddRequestHeaders(pRequest, PChar(Header.DataString), Length(Header.DataString), HTTP_ADDREQ_FLAG_ADD);
          if HTTPSendRequest(pRequest, nil, 0, Pointer(AData), Length(AData)) then begin
            BufStream := TMemoryStream.Create;
            try
              while InternetReadFile(pRequest, @aBuffer, SizeOf(aBuffer), BytesRead) do begin
                if (BytesRead = 0) then Break;
                BufStream.Write(aBuffer, BytesRead);
              end;
              aBuffer[0] := #0;
              BufStream.Write(aBuffer, 1);
              Result := PChar(BufStream.Memory);
            finally
              BufStream.Free;
            end;
          end;
        finally
          Header.Free;
        end;
      finally
        InternetCloseHandle(pRequest);
      end;
    finally
      InternetCloseHandle(pConnection);
    end;
  finally
    InternetCloseHandle(pSession);
  end;
end;