NodeJS пример четене от MySQl

Ех доста време си играх с това чудо, докато си направя прост
пример с който да покажа как се чете от база данни и как се обработва DOM

NodeJS пример четене от MySQl -
http://jakomen.chat.jakomen.jit.su/

И тук
http://chat.pmsys.org/

Ето и кода да се забавлявате
https://github.com/halachev/NodeJS-Example---MySql

Поздрави Мехмедов

Hello World на node.js

Hello World на node.js

Здравейте, днес ще ви покажа как да инсталираме node.js и да си направим hello world.

Сваляте файла от http://nodejs.org/ инсталирате

пускате cmd козолата и пишите:

npm install -g express

намирате папката на инсталацията създавате си файл app.js (Най - добре си направете нова папка)

пишите следния код и запазвате (ползвам notepad++):

var http = require('http');
http.createServer(function (req, res) {
  res.writeHead(200, {'Content-Type': 'text/plain'});
  res.end('Hello World\n');
}).listen(1337, '127.0.0.1');
console.log('Server running at http://127.0.0.1:1337/');

Стартирате node server с конзолна команда:

node + file name

example: node app.js

Стартирате chrome или mozila локално на адрес http://localhost:1337/

Честито имате Hello World!

Поздрави Мехмедов

Как да си напишем Service на .NET и да го ползваме в Delphi XE.

Using C# Library in Delphi XE

Как да си напишем Service на .NET и да го ползваме в Delphi XE

Ще започна с един прост пример "Hello World", който онагледява целия процес при изграждането на Dynamic-link library

1. Създайте нов проект в .NET  изберете class library.

2. Изтрийте файла class1.cs

3. Създайте нов interface: ITest.cs

4. Създайте нов class : Test.cs

5. Добавете следния код в ITest.cs

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Runtime.InteropServices;

namespace HelloWorld

{

public interface ITest

{

[ComVisible(true)]

string HelloWorld();

}

}

6.Добавете следния код в Test.cs

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Runtime.InteropServices;

namespace HelloWorld

{

[ComVisible(true)]

[ClassInterface(ClassInterfaceType.None)]

public class Test : ITest

{

public Test()

{

}

[ComVisible(true)]

public string HelloWorld()

{

return "Hello World";

}

}

}

7.Отворете файла AssemblyInfo.cs и променете  [assembly: ComVisible(false)]

 на  [assembly: ComVisible(true)]

8.Компилирайте

9.Отворете с administrator command prompt на Visual Studio и регистрирайте вашата dll-ка

regasm [target path] /tlb:HelloWorld.tlb

Тarget path e пътя до вашата dll-ка пример:  (D:\Projects\HelloWorld\\HelloWorld\bin\Debug\HelloWorld.dll)

Използване на Dll в Delphi

1.Изберете Component - Import component - import type library.Изберете Next

2. Изберете (потърсете) HelloWorld от списъка - Изберете Next

3.Изберете отметка "Generate Component Wrappers"

4.Изберете отметка "Create Unit"

Създайте нов проект добавете в uses HelloWorld_TLB

Добавете файла създаден в .net HelloWorld.dll  в Debug\Win32

Ето и кода в Delphi

unit HelloWorld;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, HelloWorld_TLB, StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

    ftest: TTest;

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

  ftest := TTest.Create(nil);

  ShowMessage(ftest.HelloWorld);

end;

end.

Резултат

Надявам се да съм бил полезен!