WordPress XML-RPC Com Delphi e Indy 10

in Delphi Dicas Programação Rad Studio Web by Cesar — 02/03/2009 at 08:39 | 3 comments

O WordPress suporta comunicação remota, atravéz de XML-RPC, ontem ajudei um amigo a criar um aplicativo simples em Delphi, para postar e fazer upload de arquivos com Delphi e Indy 10.

A minha primeira tentativa foi utilizando o RemObjects, mas ele apresentou alguns bugs, eu corrigi os fontes do RemObjects e consegui fazer a chamada, mas analisando a necessidade, vi que poderia ser feito de forma mais simples, utilizando apenas o Indy e escrevendo alguns poucos métodos.

Já comecei a escrever um exemplo de como implementar usando o Jazz SDK, a nova versão que está no forno, será um exemplo que acompanhará os fontes, mas por enquanto vou escrever as dicas de como fazer o upload de arquivos, que servirá como base para todas as funções do WordPress descritas na página Codex XML-RPC wp.

Método remoto para enviar um arquivo: wp.uploadFile

Parâmetros:

• int blog_id
• string username
• string password
• struct data
  • string name
  • string type
  • base64 bits
  • bool overwrite

Resultado:

• struct 
  • string file
  • string url
  • string  type

Onde:
Primeiro o tipo correspondente e segundo o nome do campo.

Struct se refere a estrutura de um Objeto em Delphi.

O primeiro passo é montar a requisição, a requisição pode ser montada utilizando TXMLDocument, ou outro gerador de XML Nodes. O formato do XML é o padrão definido para qualquer comunicação XML-RPC, este aqui é o modelo de um XML para a chamada de envio de um arquivo:

<methodCall>
  <methodName>wp.uploadFile</methodName>
  <params>
    <param>
      <value>
        <int>[blog_id value]</int>
      </value>
    </param>
    <param>
      <value>
        <string>[username value]</string>
      </value>
    </param>
    <param>
      <value>
        <string>[password value]</string>
      </value>
    </param>
    <struct>
      <member>
        <name>name</name>
        <value><string>[name filename.ext value]</string></value>
      </member>
      <member>
        <name>type</name>
        <value><string>[type mime datatype]</string></value>
      </member>
      <member>
        <name>bits</name>
        <value><base64>[bits file content]</base64></value>
      </member>
      <member>
        <name>override</name>
        <value><bool>[override value]</bool></value>
      </member>
     </struct>
  </params>
</methodCall>

As chaves “[" e "]” e a descrição entre elas, devem ser substituídos pelos valores dos conteúdos correspondentes, descritos em Parâmetros acima.

O blog_id, deve ser recuperado com a chamada remota do método “wp.getUsersBlogs“, a seguir login e senha do usuário, e o struct do arquivo a ser enviado.

Onde name é o nome do arquivo, com extensão, a extensão é importante pois o WordPress validará se o tipo do arquivo é aceito, pela extensão.

type é a descrição de tipo mime, de acordo com os tipos aceitos, descritos na página Using Attachments

bits é o conteúdo do arquivo, codificado no padrão “Encode 64″,  e por fim o override, indica se um arquivo com o mesmo nome deve ou não ser sobrescrito.

O código em Delphi com Indy para enviar o arquivo fica assim:

procedure WPUploadFile(const FileName: string);
var
  TargetURL: string;
  DataFile, EncodedData, Request, Response: TMemoryStream;
begin
  TargetURL:= 'http://www.url_do_blog.com.br/xmlrpc.php';
  DataFile:= TMemoryStream.Create;
  Request:= TMemoryStream.Create;
  Response:= TMemoryStream.Create;
  EncodedData:= TMemoryStream.Create;
  DataFile.LoadFromFile(FileName);
  DataFile.Position := 0;
  try
    EncodeStream(DataFile, EncodedData);
    PrepareRequestXML(Request, EncodedData);

    IdHTTTP1.IOHandler:= IdIOHandlerStack1;
    IdHTTTP1.Post(TargetURL, Request, Response);

    Response.Position:= 0;
    MemoResponse.Lines.LoadFromStream(Response);
  finally
    Request.Free;
    Response.Free;
    DataFile.Free;
    EncodedData.Free;
  end;
end;

O método EncodeStream, está na unit EncdDecd. 

O método PrepareRequestXML, é um método que escrevi para montar o XML Request, de acordo com o código XML acima.

Os componentes do Indy utilizados foram TIdHTTP e TIdIOHandlerStack, e todo o código da chamada é composto apenas de 2 linhas, o restante é apenas para chamar o código que monta o XML da requisição e receber o resultado, que será mostrado num memo chamado MemoResponse. O correto agora seria cria um objeto, com as propriedades retornadas, que são:

• file nome do arquivo salvo no servidor
• url url para acessar a imagem diretamente
• type tipo do arquivo

Em breve publicarei um exemplo de como criar postar no WordPress com Delphi, utilizando objetos feitos com o Jazz SDK.