Trabalho realizado no AEEda Escola Paulo Freire comalunos surdos utilizando asTecnologias Assistivas no aprendizado da Libras e LP2 desenvolvendo leitura e producao textual. UMA LICAO DE PACIENCIA E PERSEVERANCA,E como a historia deste incrivel arbusto que depois de plantada a semente, nao se ve nada, durante 5 anos, todo o crescimento e subterraneo, invisivel a olho nu, mas, uma macica e fibrosa estrutura de raiz, que se estende vertical e horizontalmente pela terra esta sendo construida.Um escritor americano escreveu: "Muitas coisas na vida, quer seja no campo pessoal, espiritual ou profissional sao iguais aos bambus chineses": voce trabalha, investe tempo, esforco, faz tudo o que pode para nutrir seu crescimento, e, as vezes nao ve nada por semanas, meses, ou anos...Mas, se tiver paciencia para continuar trabalhando, persistindo e nutrindo-o, seu 5o ano chegara, e, com ele, virao um crescimento e as mudancas que voce jamais esperava... O bambu chines nos ensina que nao devemos facilmente desistir de nossos projetos, de nossos sonhos... E que devemos lembrar que paciencia e perseveranca como a do bambu chines, sao essenciais para nao desistirmos facilmente diante das dificuldades que surgirao durante nossa caminhada da vida. Ao conservarmos os habitos da Persistencia e da Paciencia, certamente alcancaremos todos os sonhos!!! Posto que e preciso muita fibra para chegar as alturas e, ao mesmo tempo, muita flexibilidade para se curvar ao chao.A tudo isso devemos acrescentar o Amor e a Fe... E acreditar que tudo tem o tempo certo para acontecer, e que Deus tem muitas bencaos reservadas para todos os seus filhos! versao Ingles.. uses WinInet; function GetCacheFileName(const Url: string; var FileName: string): Boolean;var Info: PInternetCacheEntryInfo; InfoBufSize: Cardinal;begin Result := False; InfoBufSize := 0; GetUrlCacheEntryInfo(PChar(Url), TInternetCacheEntryInfo(nil^), InfoBufSize); if GetLastError = ERROR_INSUFFICIENT_BUFFER then begin GetMem(Info, InfoBufSize); try Result := GetUrlCacheEntryInfo(PChar(Url), TInternetCacheEntryInfo(Info^), InfoBufSize); if Result then begin FileName := Info^.lpszLocalFileName; end; finally FreeMem(Info); end; end;end; unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ActiveX, MSHTML, SHDocVw, StdCtrls;type TObjectFromLResult = function(LRESULT: lResult; const IID: TIID; WPARAM: wParam; out pObject): HRESULT; stdcall;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;function GetIEFromHWND(WHandle: HWND; var IE: IWebbrowser2): HRESULT;function WB_GetHTMLCode(WebBrowser: iwebbrowser2; ACode: TStrings): Boolean;implementation{$R *.dfm}function GetIEFromHWND(WHandle: HWND; var IE: IWebbrowser2): HRESULT;var hInst: HWND; lRes: Cardinal; MSG: Integer; pDoc: IHTMLDocument2; ObjectFromLresult: TObjectFromLresult;begin hInst := LoadLibrary('Oleacc.dll'); @ObjectFromLresult := GetProcAddress(hInst, 'ObjectFromLresult'); if @ObjectFromLresult <> nil then begin try MSG := RegisterWindowMessage('WM_HTML_GETOBJECT'); SendMessageTimeOut(WHandle, MSG, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes); Result := ObjectFromLresult(lRes, IHTMLDocument2, 0, pDoc); if Result = S_OK then (pDoc.parentWindow as IServiceprovider).QueryService(IWebbrowserApp, IWebbrowser2, IE); finally FreeLibrary(hInst); end; end;end;function WB_GetHTMLCode(WebBrowser: iwebbrowser2; ACode: TStrings): Boolean;var ps: IPersistStreamInit; ss: TStringStream; sa: IStream; s: string;begin ps := WebBrowser.Document as IPersistStreamInit; s := ''; ss := TStringStream.Create(s); try sa := TStreamAdapter.Create(ss, soReference) as IStream; Result := Succeeded(ps.Save(sa, True)); if Result then ACode.Add(ss.Datastring); finally ss.Free; end;end;procedure TForm1.Button1Click(Sender: TObject);var hIE: THandle; IE: iwebbrowser2;begin hIE:=FindWindow('IEFrame',nil); hIE:=FindWindowEx(hIE,0,'Frame Tab',nil); hIE:=FindWindowEx(hIE,0,'TabWindowClass',nil); hIE:=FindWindowEx(hIE,0,'Shell DocObject View',nil); hIE:=FindWindowEx(hIE,0,'Internet Explorer_Server',nil); if hIE <> 0 then begin GetIEFromHWnd(hIE, IE); Memo1.Clear; WB_GetHTMLCode(IE, Memo1.Lines); end;end;end. este erro ocorre por falha de comunicacao entre aplicacao e a