mirror of
https://github.com/Bayselonarrend/OpenIntegrations.git
synced 2024-12-16 11:38:11 +02:00
25 lines
1.0 KiB
Plaintext
25 lines
1.0 KiB
Plaintext
Parameters = GetVKParameters();
|
|
Text = "Post from autotest";
|
|
URL = "https://github.com/Bayselonarrend/OpenIntegrations";
|
|
|
|
Image = FunctionParameters["Picture"]; // URL, Path or Binary Data
|
|
Video = FunctionParameters["Video"]; // URL, Path or Binary Data
|
|
|
|
TFN = GetTempFileName("png");
|
|
CopyFile(Image, TFN);
|
|
|
|
ImageUpload = OPI_VK.UploadPhotoToServer(TFN, Parameters)["response"][0];
|
|
VideoUpload = OPI_VK.UploadVideoToServer(Video, "NewVideo", , , Parameters);
|
|
|
|
ImageOwner = OPI_Tools.NumberToString(ImageUpload["owner_id"]);
|
|
VideoOwner = OPI_Tools.NumberToString(VideoUpload["owner_id"]);
|
|
|
|
ImageID = OPI_Tools.NumberToString(ImageUpload["id"]);
|
|
VideoID = OPI_Tools.NumberToString(VideoUpload["video_id"]);
|
|
|
|
AttachmentsArray = New Array;
|
|
AttachmentsArray.Add("photo" + ImageOwner + "_" + ImageID);
|
|
AttachmentsArray.Add("video" + VideoOwner + "_" + VideoID);
|
|
|
|
Result = OPI_VK.CreateCompositePost(Text, AttachmentsArray, False, URL, Parameters);
|