cDataStructs.pas Data structures
cDateTime.pas Date and Time functions
cFileUtils.pas File utility functions
cHash.pas Hashing functions
cRandom.pas Uniform random number generators
cSocket.pas System socket class
cSocketHostLookup.pas Socket host lookup class
cSocketLib.pas System socket library
cStreams.pas Streams
cStrings.pas Ansi String functions
cSysClasses.pasSystem classes
cSysUtils.pas System utilities
cUnicodeCodecs.pas Unicode encoders/decoders
cUnicodeChar.pas Unicode character functions
cUnicode.pas Unicode string functions
cUnicodeReader.pas Unicode reader classes
cUtils.pas Utility functions for Integer, Bit, Set,
cWinClasses.pasWindows system classes
cWinUtils.pas Windows utility functions
cXMLFunctions.pas General purpose XML functions
cXMLDocument.pas XML document classes
cXMLParser.pas XML Parser

It’s freeware with source and for D2005 D2006 D2007 D5 D7.

Visit the webiste.

Download it from here.

Related posts

• Send fax directly with HylaFax or MSFax v.1.0 (6)
• HashCart-128 v.0.1 (2)
• Delphi Encryption Compedium Part I v.5.2 is published (3)
• DDService v.1.4 has been released (0)
• Davinchi script engine v.2009 (2)

Function XMLHTTPSTR:String; 
var
url:string;
xmlHttp:Olevariant;
responseText:Widestring;
begin
With Form1 do
Begin
if (Length(edit1.Text)>0) AND (Length(edit2.Text)>0) then
begin
xmlHttp:=CreateOleObject('MSXML2.XMLHTTP');
xmlHttp.open(edit2.Text,edit1.Text,false);
xmlHttp.send;
Result:=xmlHttp.responseText;
end
else
showmessage('fill submit url');
end
else
showmessage('fill url');
end;
end;

Related posts

• How to load an XML document into the DOM (0)
• DIHtmlParser v5.0.0 (0)

Related posts

• VCL for PHP Open Components (0)
• PHP4Delphi (0)
• How to use sqlite under delphi? (2)
• Fundamentals v.4.00 RC1 for delphi (2)
• Free & Open-Source PHP Web Statistics Script (0)

Related posts

• Use XMLHTTP in Delphi (0)
• DIHtmlParser v5.0.0 (0)

COPY, INHERIT OR USE?

Code reusability saves us time and effort, increasing our productivity. Object-oriented programming has something to do with that, and in the case of Delphi we can reuse forms and even entire projects. For example if we have a form with a table, a dbgrid, a navigator and several buttons, we can save it like a model in the Object Repository to reuse it in several parts of our application or other applications. The same for a standard form of the type “Save, Don’t save, Cancel”. To add a form to the repository you have to right-click it and select “Add to Repository…” in the context menu. To save a project in the repository choose “Add to Repository…” from the Project menu.

To use a form of the repository in our application, in the File menu we chose New and in the New Items dialog we click the Forms tab to see the forms available in the repository. Then we select the form we want, the method of use (Copy, Inherit, or Use) and click the OK button. The dferences between these hree methods of use are described briefly here:

COPY: Creates a form that is copy of the form that is in repository. The changes you make to the copy won’t affect the form in the repository (nor other projects that use it), and changes made to the form in the repository won’t affect forms previously copied from it. This option is used when the form in the repository is just a base to work, with a very low level of standardization. Full-adaptation is possible.

INHERIT: It creates a form that derives from the form in the repository. Changes made to this derived form (inherited) won’t affect the form in the repository, but the inverse is not true. This option is used when the form in the repository is well standardized but it is desired to allow some adaptation. It’s the most powerful way to use a form.

USE: It adds the form of the repository to your project. It’s not a copy, but the form of the repository itself, and thus any modification that you make to it will apply to other projects that USE or INHERIT it. This option is used when the form of the repository is a standard and is defined in itself (it doesn’t require particular adaptations for each case/application).

From here.

Related posts

• No related posts.

Related posts

• Using FireFox instead of TWebBrowser in Delphi applications (0)
• How to check the email address input is validate in delphi (0)
• File share suggest (4)

Would you like to display HTML in your applications using an open source solution? The Gecko Runtime Environment by the Mozilla Foundation can be embedded in a Delphi application by using the Mozilla ActiveX Control. This article shows how to use this control and points out some of the differences between it and the IE based TWebBrowser. The accompanying source code was written in Delphi 6 but should work in Delphi 5 and later. If you want to use the Mozilla ActiveX Control with Delphi 4 you also need to read Delphi 4 Lizard Taming.

First some background and terminology. In 1998 Netscape released the source code for Communicator, their Internet suite, to the open source community and created Mozilla.org. After several years development, the project finally released Mozilla 1.0 in 2002. By then Netscape had been bought by AOL, who repackaged Mozilla 1.0 as Netscape 7.0. In 2003, AOL closed its Netscape software division and the Mozilla code is now entirely controlled by the non-profit Mozilla Foundation. During development the Communicator code was completely re-written and new technologies were invented such as XUL, a cross platform UI definition language using XML, CSS and JavaScript. The Mozilla Suite of a Browser, Mail and Newsreader, HTML Composer and an Address Book is now being superseded by Firefox (browser), Thunderbird (email), and Nvu (composer). Behind all these applications is the Gecko Runtime Environment (GRE) – a fast, free and standards compliant HTML display engine.

All the Mozilla code is released under an MPL/GPL/LGPL tri-license so you can choose the license that suits your needs when using it. For C programmers, building applications based on the Mozilla code is easy, they can just download the code and start hacking immediately but there is also an option for the rest of us. There is an ActiveX control, written by Adam Lock, which can be used to embed the GRE in other applications. This Mozilla ActiveX Control is written to emulate the familiar IE based TWebBrowser.

There is little documentation for the Mozilla Control but you can use the MSDN WebBrowser documentation and ask questions in the netscape.public.mozilla.embedding newsgroup. Read more.

Related posts

• How to check the email address input is validate in delphi (0)
• File share suggest (4)
• Creating an RSS Reader use Delphi (1)

Delphi 2009 provides a dedicated Open Tools API interface that let you interact and extend the functionality of the Delphi and C++Builder 2009 IDE. “Eric’s Open Tools API FAQ and Resource” is probably the best place to learn about Open Tools API. Eric Berry is well known in Delphi community as author of GExperts extension to all versions of Delphi and also as expert on Tools API itself.

In this post I would like to provide step-by-step instructions how to create a simple menu wizard. The wizard will add an item under Delphi “Help” menu and will just display a “Hello World” message. Nothing fancy, but just a good starting point for adding some more useful functionality. Read more.

Related posts

• Send fax directly with HylaFax or MSFax v.1.0 (6)
• OmniThreadLibrary v.1.01 has been released (0)
• Direct Oracle Access v4.1.1 for Delphi2009 (0)
• Delphi Encryption Compedium Part I v.5.2 is published (3)
• Delphi 2009 Update 2 is available for download (5)

You can download it from here ,only 30k zip file.

Related posts

• No related posts.

Updated on 2000-12-06 due to Phil’s and Sven’s comments.
Updated on 2002-06-13 due to Carlos’ comment.
Thanks for improving!

function IsValidEmail(const Value: string): boolean;
 
function CheckAllowed(const s: string): boolean;
var
i: integer;
begin
Result:= false;
for i:= 1 to Length(s) do
begin
// illegal char in s -> no valid address
if not (s[i] in ['a'..'z','A'..'Z','0'..'9','_','-','.']) then
Exit;
end;
Result:= true;
end;
 
var
i: integer;
namePart, serverPart: string;
begin // of IsValidEmail
Result:= false;
i:= Pos('@', Value);
if (i = 0) or (pos('..', Value) > 0) then
Exit;
namePart:= Copy(Value, 1, i - 1);
serverPart:= Copy(Value, i + 1, Length(Value));
if (Length(namePart) = 0)         // @ or name missing
or ((Length(serverPart) < 4))   // name or server missing or
then Exit;                      // too short
i:= Pos('.', serverPart);
// must have dot and at least 3 places from end
if (i < 2) or (i > (Length(serverPart) - 2)) then
Exit;
Result:= CheckAllowed(namePart) and CheckAllowed(serverPart);
end;

Related posts

• Using FireFox instead of TWebBrowser in Delphi applications (0)
• File share suggest (4)
• Creating an RSS Reader use Delphi (1)