Exemplo de Post
Gostaria de uma ajuda para implementar este código em delphi.
Em resumo passo por parâmetro key, imagem em gif e recebo o retorno.
< form action="http://api.captchaboss.com/imagepost.ashx" method="post" enctype="multipart/form-data" >
<input type="text" name="action" value="upload"/>
< input type="text" name="key" value="KLJFSDFJLLG9KJT5IOEIWE839823K"/>
<input type="file" name="file"/>
<input type="text" name="gen_task_id" value="1"/>
<input type="submit" value="Submit"/>
</form>
Em resumo passo por parâmetro key, imagem em gif e recebo o retorno.
< form action="http://api.captchaboss.com/imagepost.ashx" method="post" enctype="multipart/form-data" >
<input type="text" name="action" value="upload"/>
< input type="text" name="key" value="KLJFSDFJLLG9KJT5IOEIWE839823K"/>
<input type="file" name="file"/>
<input type="text" name="gen_task_id" value="1"/>
<input type="submit" value="Submit"/>
</form>
Host Solucões
Curtidas 0
Respostas
Alessandro Yamasaki
04/08/2013
Qual a dúvida ou erro?
GOSTEI 0
Host Solucões
04/08/2013
Gostaria de transformar este texto em html, em uma função no Delphi
GOSTEI 0
Deivison Melo
04/08/2013
Dá uma olhada no link abaixo:
http://www.planetadelphi.com.br/artigo/114/criando-um-editor-de-html
Ele ensina desenvolver um editor de html, então não ensinará apenas
salvar as tag´s como interagir com elas...
Qualquer dúvida posta novamente!!
Abraços e bons códigos!!!
http://www.planetadelphi.com.br/artigo/114/criando-um-editor-de-html
Ele ensina desenvolver um editor de html, então não ensinará apenas
salvar as tag´s como interagir com elas...
Qualquer dúvida posta novamente!!
Abraços e bons códigos!!!
GOSTEI 0
Wesley Yamazack
04/08/2013
Opa meu querido, qual seria a ideia que você tem em mente, poderia explicar melhor?
abs
abs
GOSTEI 0
Host Solucões
04/08/2013
Boa tarde, na verdade conseguiu o que desejava utilizando esta rotina abaixo:
O que eu estava precisando era pegar uma função em uma outra linguagem, neste caso em html e criar uma função para o Delphi.
Onde nesta função precisava passar, alguns parâmetros e um upload de um arquivo.
Com a rotina abaixo consegui o que precisava, obrigado a atenção de todos.
var
Stream: TStringStream;
Params: TIdMultipartFormDataStream;
begin
try
Stream := TStringStream.Create('');
try
Params := TIdMultipartFormDataStream.Create;
try
Params.AddFormField('action','upload');
Params.AddFormField('key','Chave');
Params.AddFile('file', local, 'application/octet-stream');
Params.AddFormField('gen_task_id','1');
try
IdHTTP1.Post('sitedesejado', Params, Stream);
except
on E: Exception do ShowMessage('Error encountered during POST: ' + E.Message);
end;
result := Stream.DataString;
finally
Params.Free;
end;
finally
Stream.Free;
end;
except
captchar(local);
end;
end;
[Concluido]
O que eu estava precisando era pegar uma função em uma outra linguagem, neste caso em html e criar uma função para o Delphi.
Onde nesta função precisava passar, alguns parâmetros e um upload de um arquivo.
Com a rotina abaixo consegui o que precisava, obrigado a atenção de todos.
var
Stream: TStringStream;
Params: TIdMultipartFormDataStream;
begin
try
Stream := TStringStream.Create('');
try
Params := TIdMultipartFormDataStream.Create;
try
Params.AddFormField('action','upload');
Params.AddFormField('key','Chave');
Params.AddFile('file', local, 'application/octet-stream');
Params.AddFormField('gen_task_id','1');
try
IdHTTP1.Post('sitedesejado', Params, Stream);
except
on E: Exception do ShowMessage('Error encountered during POST: ' + E.Message);
end;
result := Stream.DataString;
finally
Params.Free;
end;
finally
Stream.Free;
end;
except
captchar(local);
end;
end;
[Concluido]
GOSTEI 0
Thiago Quintino
04/08/2013
Boa tarde amigo Analista_Host, também estou tentando fazer o post com o delphi 7 no mesmo serviço que o amigo descreve, a única diferença que notei foi que o endereço da API deles mudou para: http://www.fasttypers.org/imagepost.ashx. Implementei aqui o código postado pelo amigo, porém só obtenho: "INVALID_REQUEST" como retorno, o amigo ainda possui essa rotina em uso? ela foi atualizada em algo?
GOSTEI 0
Host Solucões
04/08/2013
Bom dia
Tenho sim, vou te enviar.
Tenho sim, vou te enviar.
GOSTEI 0
Pedro Silva
04/08/2013
Analista_host, amigo preciso muito entrar em contato com voce....
assunto de nosso mútuo interesse, por favor como podemos entrar em contato
meus contatos são: skype: pedroairtondasilva
email: pairton7@gmail.com
No aguardo
PEDRO
assunto de nosso mútuo interesse, por favor como podemos entrar em contato
meus contatos são: skype: pedroairtondasilva
email: pairton7@gmail.com
No aguardo
PEDRO
GOSTEI 0
Host Solucões
04/08/2013
Analista_host, amigo preciso muito entrar em contato com voce....
assunto de nosso mútuo interesse, por favor como podemos entrar em contato
meus contatos são: skype: pedroairtondasilva
email: pairton7@gmail.com
No aguardo
PEDRO
Opa Pedro, demorei um pouco mais meu contato é skype: host_areatecnica, email brunorossif@gmail.com
assunto de nosso mútuo interesse, por favor como podemos entrar em contato
meus contatos são: skype: pedroairtondasilva
email: pairton7@gmail.com
No aguardo
PEDRO
Opa Pedro, demorei um pouco mais meu contato é skype: host_areatecnica, email brunorossif@gmail.com
GOSTEI 0