FiveTech Software tech support forums

Hi,

Cgallegoa wrote:Look \fwh\samples\testurl.prg

thx for Answer

i know that i can use a LINK in RICHTEXT and also in MENUITEM (Mailto:)
i want to know if Fivewin have a Function else i have to write my "own" using a DIALOG (like in Sample you point to)

Hi,

Look

• \fwh\samples\testurl.prg

Regards,

Leandro, podrias probar tambien con URLLINK



Hay un ejemplo en samples\testurl.prg

Saludos.

Carlos

Hola Mariano:
Modifique el ejemplo que viene con Fivewin, testurl.prg, y le puse un boton que llame a la funcion ShellExecute, y funciona bien.
Verificaste bien que la oWnd esta definida?
Te copio el ejemplo para que lo pruebes
#include "FiveWin.ch"#include "URLLink.ch"#define COLOR_BTNFACE  15 ...

Samples/source completo para testes:

https://www.4shared.com/rar/7EphzsFyei/TESTURL.html

Regards, saludos.

Antonio,
in the testurl.rc in samples-folder is defined a URL with LTEXT "", 106, 192, 145, 72, 9
This is not functioning, the caption is not visible!

It should be: CONTROL "", 106, "STATIC", SS_SIMPLE ....

In this and other wrong case, the turllink-class should correct the style!

Lucas

With FHW64 Shellexecute() does not run - you can add adapted code for Shellexecute() and testurl.prg run perfectly
#include "FiveWin.ch"#include "URLLink.ch"#define COLOR_BTNFACE 15//----------------------------------------------------------------------------//function Main() local ...

Antonio,

samples\testurl.prg produces a GPF in FWH 64.

In FWH 32 it is ok, but it has an unreleased Font:

FONT,436868240,TURLLINK:REDEFINE(105)

Thank you.

Gracias por responder, no había visto en los ejemplos de Fwh el testurl... lo busque por hyperlink...

Muchas gracias

Luis

Hola avielo

Tienes la clase URLLINK
mira el ejemplo testurl.prg

Hi,
as subject. Simply compule testurl.prg.

Any solution ?

Thanks in advance

Marco


Application
===========
Path and name: K:\TESTURL\testurl.Exe (32 bits)
Size: 1,704,960 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 04/17/09, 15:54:26
Error description: Error BASE/1066 ...

Hola foro.
El siguiente código funciona para bajar un archivo

static function TestUrl()
local oUrl, oClient

oUrl:= TUrl():New("http://www.captura.com/2007/archivo.xml")

oClient := TipClienthttp():New( oUrl )

oClient:nConnTimeout:=20000

oClient:ReadToFile( "e:\ap\archivo.xml" )

oClient ...