وضع مواضيع في المنتديات ( html )

[onexite]

السلام عليكم
اولا المنتدى الرائع جدا والخفيف punbb.informer.com
ثانيا الكود المستخدم

PHP كود :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls,HTTPApp;

type
  TForm1 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    Memo1: TMemo;
    edt4: TEdit;
    idhtp1: TIdHTTP;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var list :TStringList;
begin
list:=TStringList.Create;
try
  try
list.Add('form_sent=1&form_user=Guest&req_email='+edt1.Text+'&req_message='+HTMLEncode(memo1.Text)+'&req_subject='+edt4.Text+'&req_username='+edt2.Text+'&submit_button=Submit topic') ;
idhtp1.Post('http://127.0.0.1:8887/punbb-1.4.2/post.php?fid=1',list);
except
  if idhtp1.Response.ResponseCode = 302 then
  edt3.Text:= 'Post new topic ..OK'
  else
   edt3.Text:= 'Post new topic ..Faild !'
  end
  finally
         if idhtp1.Response.ResponseCode = 302 then
  edt3.Text:= 'Post new topic ..OK'
  else
   edt3.Text:= 'Post new topic ..Faild !' ;
    list.Free;
    end;
end;

end. 


اعدادات المنتدى

التجربة

يمكنكم استخدام هذا الموقع كتجربة

كود :

http://rarlib.eb2a.com/viewtopic.php?id=3

وكذلك هناك ملفات مرفقة

[onexite]

الكود سورس

كود :

http://www.mediafire.com/?xsnqy1422xc5o0c