AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte KodeZwergs TIniHelper Klasse
Thema durchsuchen
Ansicht
Themen-Optionen

KodeZwergs TIniHelper Klasse

Ein Thema von KodeZwerg · begonnen am 5. Nov 2018 · letzter Beitrag vom 17. Nov 2018
Antwort Antwort
Alter Mann

Registriert seit: 15. Nov 2003
Ort: Berlin
949 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

AW: KodeZwergs TIniHelper Klasse

  Alt 17. Nov 2018, 15:30
Frage am Rande:

Wo bitte wird TIniHelper aufgerufen/verwendet?
  Mit Zitat antworten Zitat
EdAdvokat

Registriert seit: 1. Mai 2016
Ort: Berlin
419 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: KodeZwergs TIniHelper Klasse

  Alt 17. Nov 2018, 15:42
Frage am Rande:

Wo bitte wird TIniHelper aufgerufen/verwendet?
ich denke mal in der unit iniHelper wird IniHelper deklariert und erhält seine Felder und Methoden
und in der unit1 wird mit IniHelper gewerkelt.
Norbert
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#3

AW: KodeZwergs TIniHelper Klasse

  Alt 17. Nov 2018, 16:08
Zitat:
Kannst du das irgendwie belegen oder ist das nur ein Vorurteil?
Kann ich belegen. Habe selber viele Tests gemacht und bin danach von den Delphi-Units weg.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.757 Beiträge
 
Delphi 12 Athens
 
#4

AW: KodeZwergs TIniHelper Klasse

  Alt 17. Nov 2018, 16:12
Delphi-Quellcode:
program Project445;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.NetEncoding,
  System.Diagnostics,
  IdCoderMIME,
  IdGlobal;

var
  Value: TBytes = nil;
  Indies: TIdBytes = nil;

function Net: string;
begin
  Result := TNetEncoding.Base64.EncodeBytesToString(Value);
end;

function Indy: string;
var
  Encoder: TIdEncoderMIME;
begin
  Encoder := TIdEncoderMIME.Create(nil);
  try
    Result := Encoder.EncodeBytes(Indies);
  finally
    Encoder.Free;
  end;
end;

procedure InitValue;
var
  I: Integer;
begin
  SetLength(Value, 10*1024);
  SetLength(Indies, 10*1024);
  for I := 0 to Length(Value) - 1 do begin
    Value[I] := Random(256);
    Indies[I] := Value[I];
  end;
end;

var
  sw: TStopWatch;
  I: Integer;
begin
  try
    InitValue;
    sw := TStopWatch.StartNew;
    for I := 1 to 100000 do
      Net;
    Writeln(sw.ElapsedMilliseconds);
    sw := TStopWatch.StartNew;
    for I := 1 to 100000 do
      Indy;
    Writeln(sw.ElapsedMilliseconds);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#5

AW: KodeZwergs TIniHelper Klasse

  Alt 17. Nov 2018, 16:20
Zitat:
Kann ich belegen. Habe selber viele Tests gemacht und bin danach von den Delphi-Units weg.
Zeige doch mal ein Beispiel wie das von Uwe so das man das vergleichen kann.
Das wäre innovativ.

gruss
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#6

AW: KodeZwergs TIniHelper Klasse

  Alt 17. Nov 2018, 16:30
Den Code habe ich schon seit Monaten nicht mehr. Und den jetzt extra wieder in das eine Projekt einbauen ist mir zu nervig.
  Mit Zitat antworten Zitat
Alter Mann

Registriert seit: 15. Nov 2003
Ort: Berlin
949 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#7

AW: KodeZwergs TIniHelper Klasse

  Alt 17. Nov 2018, 16:33
@EdAdvokat
Zitat:
ch denke mal in der unit iniHelper wird IniHelper deklariert und erhält seine Felder und Methoden
und in der unit1 wird mit IniHelper gewerkelt.
Ok, dann muss ich mal zum Optiker. Ich find da nichts was dies rechtfertigt.
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: KodeZwergs TIniHelper Klasse

  Alt 17. Nov 2018, 16:57
Es tut mir leid das ich das vor mir hingeschoben habe.

In Post #1 ist ein Anwendungsbeispiel abgebildet wie ich es mir erhofft habe zu nutzen.

Da ja jetzt anscheinend doch irgendwie Interesse besteht, werde ich die Unit komplettieren.


Wenn mein Beispiel in #1 unverständlich sein sollte, bitte sagt mir Bescheid wie ich es gescheiter ausdrücken könnte.
Oder ich häng da mal eine Demo-Anwendung mit ran mit der ich das hier erbastelt habe.

Warum Base64 bei manchen eine AV auslöst kann ich momentan nicht beurteilen da bei mir mit D2010 und Tokyo beides schnurrt.

Ich rate dringend davon ab die einzelnen methoden aufzurufen, ich habe die nur drinnen gelassen weil es ein schnappschuss von meiner arbeit ist die ich noch in die Klasse prügeln möchte, poe á poe.


Herzliche Grüße.
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz