-
大小: 16.68MB文件類型: .7z金幣: 1下載: 0 次發(fā)布日期: 2023-07-21
- 語言: 其他
- 標(biāo)簽: delphikbmmw??
資源簡(jiǎn)介
用于delphi 開發(fā)三層和多層系統(tǒng),還可以開發(fā)移動(dòng)端的軟件,是一個(gè)很好的中間件軟件.
代碼片段和文件信息
#include?
#include?
#include?“..\kbmMW_Global.h“
#include?“..\kbmMW_Variant.h“
#include?“..\kbmMW_Exception.h“
#include?“..\kbmMW_ClientTransport.h“
#include?“..\kbmMW_Client.h“
int?main(int?argc?char?*argv[])
{
???int?err;
???int?i;
???long?l;
???TkbmMWClientTransport?*transport?=?KBMMW_NULL;
???TkbmMWSimpleClient?*client?=?KBMMW_NULL;
???TkbmMWVariant?*v?=?KBMMW_NULL;
???TkbmMWVariant?*arg?=?KBMMW_NULL;
???char?*result;
???kbmMW_CT_Initialize();
???
???err=0;
???transport=kbmMW_New_CT();
???transport->Connect(transport“l(fā)ocalhost“3000);
???kbmMW_IfException(transport)?{
??????err=kbmMW_ErrorNo(transport);
??????printf(“Exception:?%d?-?%s\n\r“errkbmMW_ErrorMessage(transport));
??????goto?L_Exit;
???}
???
???client=kbmMW_New_SC(transport);
???arg=kbmMW_New_Variant();
???kbmMW_Set_VariantAsString(arg“KBMMW_INVENTORY“-1);
???for?(i=0;?i<1000;?i++)?{
?????client->SendRequest(client“KBMMW_INVENTORY““kbmMW_1.0““GET?SYNTAX?ABSTRACT“arg&v);
?????kbmMW_IfException(client)?{
????????err=kbmMW_ErrorNo(client);
????????printf(“Exception:?%d?-?%s\n\r“errkbmMW_ErrorMessage(client));
????????goto?L_Exit;
?????}
?????if?(client->IsError(client))?{
????????printf(“Error?from?server:?%d?-?%s\n\r“client->GetStatusCode(client)client->GetStatusText(client));
????????goto?L_Exit;
?????}
???
?????//?Print?result.
?????printf(“Result:\n\r?StatusCode=%d?(%s)\n\r“client->ResponseStream->StatusCodeclient->ResponseStream->StatusText);
?????kbmMW_Get_VariantAsString(v&result&l);
?????printf(“Data:?%s\n\r“result);
???}
L_Exit:
???kbmMW_Dispose_Variant(&v);
???kbmMW_Dispose_Variant(&arg);
???kbmMW_Dispose_SC(&client);
???transport->Disconnect(transport);
???kbmMW_Dispose_CT(&transport);
???
???kbmMW_CT_Finalize();
???
???return?err;
}
評(píng)論
共有 條評(píng)論