загрузка документа в вк

[4ipolino]

нужен исходный код программки (Delphi ) которая будет грузить документ в вк на страницу пользователя

прошу озвучить цену

[Человек_Борща]

пишите, выполню. Не пыльное это дело. Цену уже озвучил, торг всегда уместен.

[Avazart]

Пишите :

Skype Avazart (без точки в конце логина!)
Icq 673574224
E-mail avazart@yandex.ua

[4ipolino]

Сообщение от Человек_Борща

пишите, выполню. Не пыльное это дело. Цену уже озвучил, торг всегда уместен.

я не знаю цен но 30 баксов за 30 строк кода я думаю многовато будет
всего то нужно составить правильно 2 запроса...
подсказал бы кто примеры запросов и я сделал бы сам.... ато вылетают напостой ошибки

[4ipolino]

<?xml version="1.0"?>
<error>
	<error_code>100</error_code>
	<error_msg>One of the parameters specified was missing or invalid: file is undefined</error_msg>
	<request_params list="true">
		<param>
			<key>oauth</key>
			<value>1</value>
		</param>
		<param>
			<key>method</key>
			<value>docs.save.xml</value>
		</param>
		<param>
			<key/>
			<value/>
		</param>
		<param>
			<key>file</key>
			<value/>
		</param>
		<param>
			<key>access_token</key>
			<value>2c32bb3e60ec25032c0f94dbefb2c0c485cfc2fcddb82e93f581adc31358e8c68faf1b0899f1dc1e16ead</value>
		</param>
	</request_params>
</error>

какого параметра не хватает черт его знает =(

[waleri]

Сообщение от 4ipolino

какого параметра не хватает черт его знает

Вот за это с вас и требуют деньги.

[Vad33]

Сообщение от 4ipolino

я не знаю цен но 30 баксов за 30 строк кода я думаю многовато будет
всего то нужно составить правильно 2 запроса...
подсказал бы кто примеры запросов и я сделал бы сам.... ато вылетают напостой ошибки

Тогда выложи исходник своей процедуры с описанием ошибки в соотв.разделе,
тебе мож и бесплатно помогут.

[4ipolino]

всем спасибо. тему в топку, сделал сам =)
все что мне мешало - метод доксейв, а передать там в ответ надо всего то текст после слова файл
function Pars(TextIn, Text, TextOut: string): string;
var
TempStr: string;
begin
Result:='';
TempStr:=Text;
TempStr:=Copy(TempStr, Pos(TextIn, TempStr) +Length(TextIn), Length(TempStr));
Delete(TempStr, Pos(TextOut, TempStr), Length(TempStr));
Result:=TempStr;
end;



s := Pars('"file":"', memo1.Text, '"}');