12 12 2003

TRpcFunction – постим в блог WordPress (XML-RPC)

Uchla Languages RpcCaller, TRpcFunction, XML-RPC 3

XML-RPC расшифровывается как Remote Procedure Call – удаленный вызов процедур с помощью XML. Блогу, работающему под WordPress, не забудьте дать разрешение на использование протокола XML-RPC в административной панели.
Приведенный ниже код (является основной частью программы) отвечает непосредственно за отправку поста в блог. Использует модули из библиотеки XML-RPC (положил ее сырцы в /../sources). Заголовок поста находится в переменной PostTitle, а содержание – в MemoSrc.Text (TMemo), который передается как параметр description через RPCStruct.AddItem.

procedure PostToWordpressBlog;
var
 RPCFunction: TRpcFunction;
 RPCStruct: TRpcStruct;
 RpcCaller: TRpcCaller;
 RPCResult: IRpcResult;
begin
  RpcCaller := TRpcCaller.Create;
  if FormHelper.CheckBoxUseProxy.Checked then
  begin
    RpcCaller.ProxyName := EditProxyAddr.Text;
    RpcCaller.ProxyPort := (StrToInt(Trim(EditProxyPort.Text)));
  end;
  RpcCaller.HostName:='rooslan.com/eat';
  RpcCaller.EndPoint:='/xmlrpc.php';
  RPCFunction := TRpcFunction.Create;
  RPCFunction.ObjectMethod := 'metaWeblog.newPost';
  RPCFunction.AddItem(1);
  RPCFunction.AddItem('rooslan'); // blog login
  RPCFunction.AddItem('mypassword'); // username password
  RPCStruct := TRpcStruct.Create;
  RPCStruct.AddItem('title', UTF8Encode(PostTitle));
  RPCStruct.AddItem('description', UTF8Encode(MemoSrc.Text));
  // Rpcstruc.AddItem('wp_password','ediext'); //пароль на запись
  RPCFunction.AddItem(RPCStruct);
  RPCFunction.AddItem(true);  // PUBLISH!
 RpcResult := RpcCaller.Execute(RpcFunction);
    if RpcResult.IsError then
      ShowMessageFmt('Error: (%d) %s', [RpcResult.ErrorCode, RpcResult.ErrorMsg])
    else
      ShowMessage('Success: ' + RpcResult.AsString);
  RpcCaller.Free;
end;

procedure PostToWordpressBlog;

var

RPCFunction: TRpcFunction;

RPCStruct: TRpcStruct;

RpcCaller: TRpcCaller;

RPCResult: IRpcResult;

begin

RpcCaller := TRpcCaller.Create;

if FormHelper.CheckBoxUseProxy.Checked then

begin

RpcCaller.ProxyName := EditProxyAddr.Text;

RpcCaller.ProxyPort := (StrToInt(Trim(EditProxyPort.Text)));

end;

RpcCaller.HostName:='rooslan.com/eat';

RpcCaller.EndPoint:='/xmlrpc.php';

RPCFunction := TRpcFunction.Create;

RPCFunction.ObjectMethod := 'metaWeblog.newPost';

RPCFunction.AddItem(1);

RPCFunction.AddItem('rooslan'); // blog login

RPCFunction.AddItem('mypassword'); // username password

RPCStruct := TRpcStruct.Create;

RPCStruct.AddItem('title', UTF8Encode(PostTitle));

RPCStruct.AddItem('description', UTF8Encode(MemoSrc.Text));

// Rpcstruc.AddItem('wp_password','ediext'); //пароль на запись

RPCFunction.AddItem(RPCStruct);

RPCFunction.AddItem(true); // PUBLISH!

RpcResult := RpcCaller.Execute(RpcFunction);

if RpcResult.IsError then

ShowMessageFmt('Error: (%d) %s', [RpcResult.ErrorCode, RpcResult.ErrorMsg])

else

ShowMessage('Success: ' + RpcResult.AsString);

RpcCaller.Free;

end;

P. S. Рекомендую ознакомиться с исходными кодами программы blogBuddy
Also, см. Создаем Drupal-страницы из C# (XML-RPC „node.save“)

3 Comments

Uchla
07.02.2004 @ 10:51

Парсинг (parsing) JSON данных из Lazarus с помощью „встроенного“ модуля fpJSON.
Предположим, что у нас есть такой JSON-ответ сервера в HttpGet_response:

{
   "Hello" : [
      "here",
      {
         "There" : 456;
      }
   ],
   "World" : 123
}

{

"Hello" : [

"here",

"There" : 456;

}

"World" : 123

uses
  jsonparser, fpjson;
...
procedure ParseSomeData();
var
  P: TJSONParser;
  J, D: TJSONData;
  HttpGet_response: string;
begin
  P := TJSONParser.Create(HttpGet_response);
  J := P.Parse;
  WriteLn(J.AsJSON); // Вывод содержимого "как есть"
  WriteLn(J.Items[0].Count); // Количество ветвей в дереве JSON
  D := J.Items[0].Items[1]; // Для удобства работы
  WriteLn(J.Items[0].Items[1].Count); // Например, количество объектов в первой ветке
  WriteLn(TJSONObject(J).Names[0]); // Имя первого объекта
  WriteLn(TJSONObject(D).Elements['familiya'].Value); // Получение значения по имени поля
end;

uses

jsonparser, fpjson;

...

procedure ParseSomeData();

P: TJSONParser;

J, D: TJSONData;

HttpGet_response: string;

P := TJSONParser.Create(HttpGet_response);

J := P.Parse;

WriteLn(J.AsJSON); // Вывод содержимого "как есть"

WriteLn(J.Items[0].Count); // Количество ветвей в дереве JSON

D := J.Items[0].Items[1]; // Для удобства работы

WriteLn(J.Items[0].Items[1].Count); // Например, количество объектов в первой ветке

WriteLn(TJSONObject(J).Names[0]); // Имя первого объекта

WriteLn(TJSONObject(D).Elements['familiya'].Value); // Получение значения по имени поля

Uchla
07.02.2004 @ 10:54

Не получается отправить в терминальную сессию нажатие клавиши используя keybd_event?
В таком случае необходимо использовать SendInput (в примере отправляется буква „a“):

var
  Inputs: array of TInput;
  ScanCode: Word;
begin
  ScanCode := MapVirtualKey($41, 0);
  SetLength(Inputs, 2);
  Inputs[0].iType := INPUT_KEYBOARD;
  Inputs[0].ki.wVk := $41;
  Inputs[0].ki.wScan := ScanCode;
  Inputs[1].iType := INPUT_KEYBOARD;
  Inputs[1].ki.wVk := $41;
  Inputs[1].ki.wScan := ScanCode;
  Inputs[1].ki.dwFlags := KEYEVENTF_KEYUP;
  SendInput(2, Inputs[0], SizeOf(Inputs[0]));

Inputs: array of TInput;

ScanCode: Word;

ScanCode := MapVirtualKey($41, 0);

SetLength(Inputs, 2);

Inputs[0].iType := INPUT_KEYBOARD;

Inputs[0].ki.wVk := $41;

Inputs[0].ki.wScan := ScanCode;

Inputs[1].iType := INPUT_KEYBOARD;

Inputs[1].ki.wVk := $41;

Inputs[1].ki.wScan := ScanCode;

Inputs[1].ki.dwFlags := KEYEVENTF_KEYUP;

SendInput(2, Inputs[0], SizeOf(Inputs[0]));

maxsite
11.07.2010 @ 10:55

Блог-клиент WP-CLIENT для WordPress (XML-RPC)!
-можно получить список загруженных файлов на сервере;
-позволяет работать не только с сообщениями (post), но и страницами (page);
-можно менять статус любой записи: обычная (post), постоянная страница (static page) или черновик (draft);
-использует RTF-форматирование HTML;
-может работать в любой кодировке, автоматически произведет нужную конвертацию;
-используется мощный блок для работы с изображениями;
-поддерживает парсинг текста перед отправкой на сервер;
-автоматический backup записей
http://maxsite.org/page/wp-client

TRpcFunction – постим в блог WordPress (XML-RPC)

Related Posts

gcc: get livestream url

LoadString (C++ Builder)

Download file from Sharepoint

3 Comments

Schreibe einen Kommentar Antworten abbrechen