Reading and Writing port in Delphi

سوال :
چگونه می توان در دلفی پورتهای کامپیوتر را خواند یا بر روی آنها نوشت؟
جواب :
در این زمینه من آدرس سایتهائی را می دهم که می توانید سورس کد های رایگان در این زمینه در آنجا پیدا کنید.
http://users.pandora.be/dirk.claessens2/downloads/tcomport.zip
این یکی از بهترینهائی است که من می شناسم. برنامه را دانلود کنید و با استفاده از مثالی آن کار خودتان را انجام دهید.
اینهم یک لینک قدیمی اما مفید
http://www.programmersheaven.com/zone2/cat55/14573.htm
در این سایت می توانید برنامه را دانلود کنید و استفاده کنید.
در این آدرس هم به زبان انگلیسی توضیحاتی در این زمینه ارائه شده که مفید هستند
http://www.wideman-one.com/gw/tech/Delphi/iopm/

How to call the View Source dialog in WebBrowser

برداشتي از سايت http://delphi.about.com
اگر مي خواهيد تابع ViewSource از مرورگر اينترنت خودتان را صدا بزنيد با برنامه نمونه زير مي توانيد اينکار را انجام دهيد
براي اينکار کافيست يک فرم و يک Buttom و يک TWebBrowser داشته باشيد
و برنامه زير را استفاده کنيد.

~~~~~~~~~~~~~~~~~~~~~~~~~
uses ActiveX;

procedure WBViewSourceDialog(AWebBrowser: TWebbrowser) ;
const
  CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
  HTMLID_VIEWSOURCE = 2;

var
  CmdTarget : IOleCommandTarget;
  vaIn, vaOut: OleVariant;
  PtrGUID: PGUID;
begin
  New(PtrGUID) ;
  PtrGUID^ := CGID_WebBrowser;
  if AWebBrowser.Document <> nil then
    try
      AWebBrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget) ;
      if CmdTarget <> nil then
      try
        CmdTarget.Exec(PtrGUID, HTMLID_VIEWSOURCE, 0, vaIn, vaOut) ;
      finally
        CmdTarget._Release;
      end;
    except
   end;
  Dispose(PtrGUID) ;
end;

procedure TForm1.FormCreate(Sender: TObject) ;
begin
  WebBrowser1.Navigate('http://www.delphi.about.com') ;
end;

procedure TForm1.Button1Click(Sender: TObject) ;
begin
  WBViewSourceDialog(WebBrowser1) ;
end;