Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

Отправка данных на Сервер Соап   Найти похожие ветки 

 
Bellf ©   (2009-12-03 16:31) [0]

Есть SOAP сервер на Java
Затянул WSDL файл через WSDL Importer

   property articleId: WideString read FarticleId write FarticleId;
   property branchCode: Integer read FbranchCode write FbranchCode;
   property commission: TXSDecimal read Fcommission write Fcommission;
   property competitionIds: ArrayOfString read FcompetitionIds write FcompetitionIds;
   property competitionPrices: ArrayOfDecimal read FcompetitionPrices write FcompetitionPrices;
   property extraCharge: TXSDecimal read FextraCharge write FextraCharge;
   property price: TXSDecimal read Fprice write Fprice;
   property priceDate: TXSDateTime read FpriceDate write FpriceDate;
   property primeCost: TXSDecimal read FprimeCost write FprimeCost;
   property primeCostTotal: TXSDecimal read FprimeCostTotal write FprimeCostTotal;
   property remainder: TXSDecimal read Fremainder write Fremainder;
   property reserve: TXSDecimal read Freserve write Freserve;
   property sales: TXSDecimal read Fsales write Fsales;
   property tonnage: TXSDecimal read Ftonnage write Ftonnage;
   property turnover: TXSDecimal read Fturnover write Fturnover;

Есть два динамических массива competitionIds,competitionPrices

В Тексте инициализирую и заполняю свойства
var
wsd    :PriceRpcPortType;
data   :PriceStruct;
dec    :TXSDecimal;
datdec :TXSDateTime;
arof   :ArrayOfString;
ardec  :ArrayOfDecimal;
i      :integer;
begin
data := PriceStruct.Create;
data.articleId := "F7070921-7A56-4F5B-BE98-1B1AA72A1F02";
data.branchCode:= 1;
dec  := TXSDecimal.Create;
dec.XSToNative("0");
data.commission := dec;
dec.Free;
SetLength(arof,3);
arof[0]:="6665F08F-BA2D-4BA6-BE8E-67209672FB6E";
arof[1]:="488BE5E4-148E-4A58-BD9B-2EBE14C014DC";
{for i:=0 to High(arof)-1 do begin
 arof[i]:="6665F08F-BA2D-4BA6-BE8E-67209672FB6E";
 Memo1.Lines.Add(IntToStr(i));
end;}
data.competitionIds:=arof;
SetLength(ardec,3);
dec  := TXSDecimal.Create;
dec.XSToNative("5000");
ardec[0]:= dec;
dec.Free;
dec  := TXSDecimal.Create;
dec.XSToNative("5100");
ardec[1]:= dec;
dec.Free;
data.competitionPrices:= ardec;
dec  := TXSDecimal.Create;
dec.XSToNative("0");
data.extraCharge := dec;
dec.Free;
dec  := TXSDecimal.Create;
dec.XSToNative("5100");
data.price := dec;
dec.Free;
datdec  := TXSDateTime.Create;
datdec.XSToNative("2009.12.02");
data.priceDate := datdec;
datdec.Free;
dec  := TXSDecimal.Create;
dec.XSToNative("0");
data.primeCost := dec;
dec.Free;
dec  := TXSDecimal.Create;
dec.XSToNative("0");
data.primeCostTotal := dec;
dec.Free;
dec  := TXSDecimal.Create;
dec.XSToNative("0");
data.remainder := dec;
dec.Free;
dec  := TXSDecimal.Create;
dec.XSToNative("0");
data.reserve := dec;
dec.Free;
dec  := TXSDecimal.Create;
dec.XSToNative("0");
data.sales := dec;
dec.Free;
dec  := TXSDecimal.Create;
dec.XSToNative("10.543");
data.tonnage := dec;
dec.Free;
dec  := TXSDecimal.Create;
dec.XSToNative("0");
data.turnover := dec;
dec.Free;
wsd :=GetPriceRpcPortType();
wsd.savePrice(data);
// savePrice(data);
{ wsd := GetPriceRpcPortType();
with wsd do begin   savePrice(data); end;}


при попытки выполнить функцию отправлющую данные программа вылетает с криком Acsses Violation at adress

wsd :=GetPriceRpcPortType();
wsd.savePrice(data);

Немогу разобраться почему


 
clickmaker ©   (2009-12-03 16:36) [1]

видимо, wsd = nil


 
Bellf ©   (2009-12-03 17:35) [2]

До этого выполнял код в маленькой тестовой процедуре
Все Срабатывало.

wsd := GetPriceRpcPortType();
with wsd do begin plus2(xsf); end;


 
brother ©   (2009-12-04 05:46) [3]

> wsd :=GetPriceRpcPortType();

где это описано? и что возвращает?

постоянно создавать
> dec  := TXSDecimal.Create;

и уничтожать

> dec.Free;

чтобы выполнить операцию типа:

> dec.XSToNative("0");

имхо не кошерно...
далее:

> data := PriceStruct.Create;

а где уничтожение? не нашел...
это на пока...
зы код - тихий ужОс...


 
Сергей М. ©   (2009-12-04 08:19) [4]


> data.commission := dec; // разберись что здесь происходит. Если простое копирование указателя, то
> dec.Free; // вот тебе и грабли


 
Bellf ©   (2009-12-04 13:51) [5]

Да спасибо все дело было в очистке.



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.08 c
15-1353504827
Artem
2012-11-21 17:33
2013.03.22
Перевести проект с Builder C++ на Visual Studio


15-1331817337
QWERTY_
2012-03-15 17:15
2013.03.22
thumbnails


15-1350648132
toto
2012-10-19 16:02
2013.03.22
C# GridView


15-1333518462
AlexKniga
2012-04-04 09:47
2013.03.22
Непонятные сайты на первых местах гугля


15-1333892049
xayam
2012-04-08 17:34
2013.03.22
mono ttf utf-8





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский