Guionardo, eu já havia feito. Esqueci de avisar...
Eu fiz diferente, recebo a URL direto assim (que dá no mesmo que vc fez):
function GetURL(Browser : String): String;
var
Client_DDE : TDDEClientConv;
temp : PChar;
begin
Result := '';
Client_DDE := TDDEClientConv.Create( nil
Uso o IE7.
Não sei onde está a sua dúvida.
Faça o seguinte.
function obtemurl(texto: string): string;
var p : integer;
begin
delete(texto,1,1); // exclui a primeira aspa
p:=Pos('"',texto); // localiza a segunda aspa
if p>0 then
Result:=Copy(texto,1,p-1)
else
Result:='';
end;
2008/
O problema é que uso a virgula como separador, aí que tá, eu queria
pegar somente a URL, quanto a retirar as aspas não é problema, mas se eu
tirar a virgula a função que trabalha com a URL capturada vai embaralhar
tudo
Alguém saberia como pegar somente a URL sem o caption, etc
No IE, fu
Experimentei aqui, e no IE não retornou nada. Mas no Firefox, retornou
uma string com três ítems entre aspas e separados por vírgula:
O primeiro é a url, o segundo o título da página e o terceiro veio em branco.
Procure a primeira vírgula e exclua da string tudo que vem após.
2008/10/31 Onjahyr -
E aí pessoal
A função abaixo captura a url segundo o navegador informado, porém, vem
a URL com o caption da janela e outras parafernalhas :)
Será que há uma opção no "RequestData" que me traga somente a URL e nada
mais? (Quanto a vir com as aspas tudo bem).
function GetURL(Service: string):
5 matches
Mail list logo
