Baixar uma img da net e pegar dado entre dados

Delphi

17/03/2004

Olá pessoal,
estou precisando aqui de duas coisas.
Uma é o seguinte:
Alguem saberia me dizer como tipo baixar uma img tipo de www.clubedelphi.com.br/TESTE.GIF para a pasta do aplicativo? q componente usuário e como executar... tentei aqui com indy mas não deu muito certo não :(

E tb, tipo como pegar os dados q estão entre tipo:
INICIO programar é legal FIM.......... sendo q eu não saberia o q teria entre INICIO e FIM como eu poderia fazer para descobrir o q tem dentro imprimindo-os num edit por exemplo?



Valew,
Rafael Lippert


Lipsil

Lipsil

Curtidas 0

Respostas

Tatuweb

Tatuweb

17/03/2004

Tente o seguinte:

:arrow: Rotina para retornar o que existe entre duas strings:

function StrBetweenStr (Str: string; StrInicio: string; strFIM: string): string;
var
  I: Integer;
  StrTmp: string;
begin
  Result := ´´;

  i := AnsiPos (StrInicio, Str);
  strTmp := Copy (Str, i + length (strInicio), High (integer));

  i := AnsiPos (strFim, strTmp);
  Result := Copy (strTmp, 1, I -1);
end;


Use assim:
StrBetweenStr (´INICIO programar é legal FIM´, ´INICIO´, ´FIM´);


Note que se houver mais de uma palavra inicio [b:d5de37521a]E[/b:d5de37521a] mais de uma palavra FIM o código pode não funcionar como esperado.


:arrow: Para baixar um arquivo da web use o seguinte código:
  
  // declare a unit UrlMon a cláusula uses
  try
    Screen.Cursor := crHourGlass;
    URLDownloadToFile (nil, Pchar(´www.clubedelphi.com.br/TESTE.GIF´),
    Pchar (´C:\Teste.gif´), 1, nil);
  finally
    Screen.Cursor := crDefault;
 end;


Espero ter ajudado


GOSTEI 0
Tatuweb

Tatuweb

17/03/2004

Tente o seguinte:

:arrow: Rotina para retornar o que existe entre duas strings:

function StrBetweenStr (Str: string; StrInicio: string; strFIM: string): string;
var
  I: Integer;
  StrTmp: string;
begin
  Result := ´´;

  i := AnsiPos (StrInicio, Str);
  strTmp := Copy (Str, i + length (strInicio), High (integer));

  i := AnsiPos (strFim, strTmp);
  Result := Copy (strTmp, 1, I -1);
end;


Use assim:
StrBetweenStr (´INICIO programar é legal FIM´, ´INICIO´, ´FIM´);


Note que se houver mais de uma palavra inicio [b:dd9d4a8420]E[/b:dd9d4a8420] mais de uma palavra FIM o código pode não funcionar como esperado.


:arrow: Para baixar um arquivo da web use o seguinte código:
  
  // declare a unit UrlMon a cláusula uses
  try
    Screen.Cursor := crHourGlass;
    URLDownloadToFile (nil, Pchar(´www.clubedelphi.com.br/TESTE.GIF´),
    Pchar (´C:\Teste.gif´), 1, nil);
  finally
    Screen.Cursor := crDefault;
 end;


Espero ter ajudado


GOSTEI 0
POSTAR