Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Unit WebUtils 1.2.2 (https://www.delphipraxis.net/75406-unit-webutils-1-2-2-a.html)

Brainstalker 18. Aug 2006 23:33


Unit WebUtils 1.2.2
 
Liste der Anhänge anzeigen (Anzahl: 2)
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 19. Aug 2006 00:39

Re: Unit WebUtils
 
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 :zwinker:

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 19. Aug 2006 01:38

Re: Unit WebUtils
 
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 19. Aug 2006 15:38

Re: Unit WebUtils
 
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. :stupid:
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 19. Aug 2006 19:58

Re: Unit WebUtils
 
Was spricht denn gegen Int64?

Brainstalker 11. Sep 2006 22:50

Re: Unit WebUtils
 
So ne neue Version liegt schon länger rum, aber guter Wein muss ja auch länger lagern. :stupid:
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 14. Jan 2011 22:40

AW: Unit WebUtils
 
So nach sehr langer Zeit mal wieder ein Update.
Version 1.2 online.

Brainstalker 2. Apr 2011 14:38

AW: Unit WebUtils 1.2.2
 
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 2. Apr 2011 17:13

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

Brainstalker 2. Apr 2011 20:03

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:52 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz