Y que sea creado en Free Pascal... y conforme vaya avanzando... quisiera meterle un poco mas de dificultad para por lo menos haber trabajado tanto como para que se note, espero me puedan ayudar.
Empece con lo mas sencillo, que fue trabajar con el Webbroser de Lazarus:
http://wiki.lazarus.freepascal.org/Webbrowser
Intentando compilar por lo menos esa funcion el error me sale en:
Citar
Free Pascal Compiler version 2.4.0-2ubuntu1.10.10 [2011/06/17] for i386
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Linux for i386
Compiling Necrox0.1.pas
Fatal: Can't find unit LCLProc used by NecroxWB
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Linux for i386
Compiling Necrox0.1.pas
Fatal: Can't find unit LCLProc used by NecroxWB
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)
Encontre este para solucionarlo y poder continuar...
http://comments.gmane.org/gmane.comp.ide.lazarus.general/57247
Pero no me supo responder, espero me puedan ayudar
"Aqui publicare mi codigo que vaya creando y posteriormente subirlo ala comunidad Software Libre"
Hasta el momento estoy empezando con esa sencilla funcion espero me puedan ayudar, y tal como esta en la pagina donde empece, tal cual tengo el codigo:
Citar
Código
program NecroxWB; uses Classes, LCLProc, LazHelpHTML; implementation procedure TMainForm.Button1Click(sender: TObject); var v: THTMLBrowserHelpViewer; BrowserPath, BrowserParams: string; p: LongInt; URL: String; BrowserProcess: TProcessUTF8; begin v:=THTMLBrowserHelpViewer.Create(nil); try v.FindDefaultBrowser(BrowserPath,BrowserParams); debugln(['Path=', BrowserPath, ' Params=', BrowserParams]); URL:='http://www.lazarus.freepascal.org'; p:=System.Pos('$s', BrowserParams); System.Delete(BrowserParams, p, 2); SYstem.Insert(URL, BrowserParams, p); //Start Browser BrowserProcess:=TProcessUTF8.Create(nil); try BrowserProcess.COmmandLine:=BrowserPath+' '+BrowserParams; BrowserProcess.Execute; finally BrowserProcess.Free; end; finally v.Free; end; end; begin end.
Esperando continuar con mas... espero me puedan ayudar.