Unit WebUtils 1.2.2

[Brainstalker]

WebUtils Version 1.2.2

Ich habe mal die eine oder andere Funktion gebraucht und mit der Zeit sind es ein paar geworden. Ich dachte ich packe mal alle zusammen in eine Unit und veröffentliche sie hier.
Ob sie der eine oder andere benötigt weiß ich nicht, aber hier ist sie.

Man kann beispielsweise die Downloadzeit bestimmen (angabe in Bit/s), eine URL decodieren/encodieren oder eine URL zerlegen lassen (ohne API-Aufruf).

Ich hab versucht so wenig Units wie möglich zu benutzen. Sinn ist es eine Unabhängige Unit zu haben die nicht mit API Aufrufen arbeitet, damit man diese auch auf anderen Betriebssystemen benutzen kann.

Würde mich über Kritik und Verbesserungsvorschläge freuen.

Funktionsübersicht / Features

Delphi-Quellcode:

function EncodeURL(const URL: string): string; // RFC 1738
// Ersetzt Sonderzeichen in URLs durch Hexcodes

function DecodeURL(const URL: string): string; // RFC 1738
// Ersetzt die Hexcodes in URLs durch Zeichen

function IsValidIp(const IP: string): boolean; // IPv4
// Prüft eine IPv4 Adresse auf Gültigkeit

function IsValidIpv6(const IP: string): boolean; // incomplete
// Prüft eine IPv6 Adresse auf Gültigkeit

function CalcDLTime(const Size: int64; Units, Speed: integer): TTimeRec;
// Berechnet die Downloadzeit anhand Geschwindigkeit und Downloadgröße

function BitToByte(const Bits: int64): int64;

function ByteToBit(const Bytes: int64): int64;

function ChangeUnit(const Value: integer; const uFrom, uTo: integer): extended;
// Ändert von einer Bytegröße zu einer anderen (z.B. MB -> KB)

function GetURLComponents(const URL: string): TURLRec;
// Gibt eine URL in Einzelteilen zurück

History

- 1.2.2 (2011-04-01)
Bugfix: IsValidIpv6, Region at start is now
recognized

- 1.2.1 (2011-01-17)
Update: IsValidIpv6

- 1.2 (2011-01-14)
Changed some functions to int64 input to support
larger numbers
Add: IsValidIpv6 function (incomplete)
Bug: IsValidIp now checks last block

[himitsu]

Delphi-Quellcode:

function CalcDLTime(const Size: extended; const Units, Speed: integer): TTimeRec;
function BitToByte(const Bits: extended): extended;
function ByteToBit(const Bytes: extended): extended;

ich würde da von Extended auf Integer umstellen, denn halbe Bytes gibt's ja nicht, vorallem nicht bei einer Dateigröße

bei BitToByte/ByteToBit kann man dann auch schön nur noch mit SHL/SHR arbeiten.

z.B.:

Delphi-Quellcode:

Byte := (Bit + 7) shr 3;

Bit := Byte shl 3;

[Hawkeye219]

Hallo Brainstalker,

hier eine Alternative zu deiner Funktion CheckIP:

Delphi-Quellcode:

// uses WinSock;

function IsValidIP (const aIP: string): Boolean;
begin
  Result := ((aIP <> '') and (inet_addr(PChar(aIP)) <> INADDR_NONE));
end;

Gruß Hawkeye

[Brainstalker]

Ich weiß gar nicht mehr warum ich das in extended geändert hatte, ich glaube ich hatte mal ziemlich große Zahlen benutzt. da mann aber Gigabyte angeben kann, wird integer bei heutigen Datenmengen noch nicht gesprengt. Ansonsten kommt halt nen longint hin. Also kurz und knapp ich werds zu integer ändern.
Hm shl und shr hab ich noch nie benutzt, sehe mir das mal genauer an und werds dann einbauen.

Und zum IP checken, mir ist schon klar das es damit einfacher geht, aber ich wollte so gut wie keine anderen Units benutzen und habs deshalb selbst implementiert.

[Chewie]

Was spricht denn gegen Int64?

[Brainstalker]

So ne neue Version liegt schon länger rum, aber guter Wein muss ja auch länger lagern.
Ich seh mir die Unit demnächst nochmal genauer an und bau sie vielleicht ein bisschen aus.
Wenn noch jemand Vorschläge oder Verbesserungen hat immer her damit.

[Brainstalker]

So nach sehr langer Zeit mal wieder ein Update.
Version 1.2 online.

[Brainstalker]

Version 1.2.2 ist jetzt online.

Die Ipv6 Prüffunktion wurde verbessert. Es fehlt allerdings immer noch die Erkennung von Ipv4 Adressen innerhalb von Ipv6 Adressen.

Geplant für die nächste Major Version ist:

- GetURLComponents -> Erkennung von Ipv6 Adressen
- Eine Email Prüffunktion

[Luckie]

Könntest du mal eine Liste mit den von deiner Unit zur Verfügung gestellten Routinen posten?

[Brainstalker]

Hätt ich auch mal selbst drauf kommen können. Hab es im ersten Beitrag ergänzt.