مساعدة في تحويل كود من C إلى Delphi

الحمد لله وجدت الحل على هذا الرابط

http://www.lmc-mediaagentur.de/dpool/tips/0665.htm

وهذا هو الكود وهو شغال !!

uses ActiveX;

{Loads the contents of the "Stream" into the "WebBrowser"
"Stream" should contain HTML code}
procedure LoadStream(WebBrowser: TWebBrowser; Stream: TStream);
var
  PersistStreamInit: IPersistStreamInit;
  StreamAdapter: IStream;
  MemoryStream: TMemoryStream;
begin
  {Load empty HTML document into Webbrowser to make "Document" a valid HTML document}
  WebBrowser.Navigate('about:blank');
  {wait until finished loading}
  repeat
    Application.ProcessMessages;
    Sleep(0);
  until
    WebBrowser.ReadyState = READYSTATE_COMPLETE;
  {Get IPersistStreamInit - Interface}
  if WebBrowser.Document.QueryInterface(IPersistStreamInit, PersistStreamInit) = S_OK then 
  begin
    {Clear document}
    if PersistStreamInit.InitNew = S_OK then
    begin
      {Make local copy of the contents of Stream if you want to use Stream directly, you have to
      consider, that StreamAdapter will destroy it automatically}
      MemoryStream:= TMemoryStream.Create;
      try
        MemoryStream.CopyFrom(Stream, 0);        
        MemoryStream.Position:= 0;
      except
        MemoryStream.Free;
        raise;
      end;
      {Use Stream-Adapter to get IStream Interface to our stream}
      StreamAdapter:= TStreamAdapter.Create(MemoryStream, soOwned);
      {Load data from Stream into WebBrowser}
      PersistStreamInit.Load(StreamAdapter);
    end;
  end;
end;


{Let's test. You could also create a TResourceStream or TFileStream etc. here.}
procedure TForm1.Button2Click(Sender: TObject);
var
  S: TStringStream;
begin
  S:= TStringStream.Create('

Stream Test

:This HTML content ' +
'is being loaded from a stream.');
try
LoadStream(WebBrowser1, S);
finally
S.Free;
end;
end;

السلام عليكم

شئ جيد انك وجدت حل لسؤالك بنفسك (f)

أحيي فيك روح التعاون على نشر العلم و أتمنى من الأخرين الاقتداء بك .

(f)

CIONO1

السلام عليكم ورحمة الله وبركاته

أخي tmaaa أشكرك على عباراتك الودية

وأسأل الله الكريم أن يزيدني وإياكم من واسع فضله