2024-08-13 16:04:54 +02:00
|
|
|
Parameters = GetVKParameters();
|
|
|
|
|
Text = "Post from autotest";
|
|
|
|
|
URL = "https://github.com/Bayselonarrend/OpenIntegrations";
|
|
|
|
|
|
2024-09-29 11:34:39 +02:00
|
|
|
Image = "https://github.com/Bayselonarrend/OpenIntegrations/raw/main/service/test_data/picture.jpg"; // URL, Path or Binary Data
|
|
|
|
|
Video = "https://github.com/Bayselonarrend/OpenIntegrations/raw/main/service/test_data/video.mp4"; // URL, Path or Binary Data
|
2024-08-13 16:04:54 +02:00
|
|
|
|
|
|
|
|
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);
|
