too expensive for my project

too expensive for my project

Hi Marco

Ty for answer



Unfortunately we are not familiar with CoderObject and HttpClient.

I'm looking for working examples for understand and implement

=)

Don't be afraid to learn something new. REST is the current industry standard and is quite a bit easier than analyzing the Sharepoint DLL and creating a C# wrapper class. You will probably encounter many more situations where REST will come in handy for you to interface with other sources. Why not keep your app pure Powerbuilder as well? Now you've got another codebase in another language that you will need to maintain. Glad you got it working though.

It is something like this:



















==== My SharePoint.cs ====



using System;

using System.IO;

using System.Security;

using Microsoft.SharePoint.Client;



namespace Ateikon.ProgenAM.Coge.SharePoint

{

public class ProgenAMLog

{

private string _username;

private string _password;

private string _RaccoltaDocumenti;

private string _siteUrl;

SharePointOnlineCredentials _credentials;

ClientContext _ctx;



public void init(string username, string password, string siteUrl, string RaccoltaDocumenti)

{

_username = username;

_password = password;

_siteUrl = @siteUrl;

_RaccoltaDocumenti = @RaccoltaDocumenti;



SecureString securepass = new SecureString();

foreach (char ch in password.ToCharArray())

securepass.AppendChar(ch);



_credentials = new SharePointOnlineCredentials(_username, securepass);



_ctx = new ClientContext(_siteUrl);

_ctx.Credentials = _credentials;

}



public string dirlist()

{

string items = "";



using (_ctx)

{

List spLib = _ctx.Web.Lists.GetByTitle(_RaccoltaDocumenti);



_ctx.Load(spLib);

_ctx.Load(spLib.RootFolder);

_ctx.Load(spLib.RootFolder.Folders);

_ctx.Load(spLib.RootFolder.Files);

_ctx.ExecuteQuery();

FolderCollection fcol = spLib.RootFolder.Folders;

FileCollection ficol = spLib.RootFolder.Files;



// visualizzo FILES

foreach (Microsoft.SharePoint.Client.File fi in ficol)

items += fi.Name + ",";

// visualizzo CARTELLE

//foreach (Folder f in fcol)

// items += f.Name + ",";

}



return items;

}



public void upload(string filePath)

{

string filepath = @filePath;

string fileName = filepath.Substring(filepath.LastIndexOf("\\") + 1);



byte[] content = System.IO.File.ReadAllBytes(filepath);



const int UPLOAD_SIZE_LIMIT = 1048576; //2 MB dimensione massima del messaggio di upload, considerando dati nome file ecc, mi tengo un margine di sicurezza e lo abbasso a 1MB ... gia con 1,5MB dava errore di messaggio troppo lungo



// creo il contesto client sharepoint

using (_ctx)

{

// creo l'oggetto per l'upload del file

FileCreationInformation fcInfo = new FileCreationInformation();

//fi.Url = destinationPath + "/" + filePath;

fcInfo.Url = fileName;

fcInfo.Overwrite = true;



// file da uploadare

if (content.LongLength > UPLOAD_SIZE_LIMIT)

fcInfo.Content = new byte[1]; // se il file è troppo grande salvo uno file fittizio, quello reale verrà caricato dopo

else

fcInfo.Content = content; // altrimenti salvo il file <= 1MB



//aggiungo il file alla folder (messaggio totale max 2MB)

List spLib = _ctx.Web.Lists.GetByTitle(_RaccoltaDocumenti);

Microsoft.SharePoint.Client.File fileNew = spLib.RootFolder.Files.Add(fcInfo);

//leggo il server relative path del nuovo file

_ctx.Load(fileNew, x => x.ServerRelativeUrl);



//aggiorno le proprietà

ListItem item = fileNew.ListItemAllFields;

item["Title"] = fileName;

item.Update();

_ctx.Load(item);



// esegui i comandi caricati nel contesto -> salvo il file

_ctx.ExecuteQuery();



if (content.LongLength > UPLOAD_SIZE_LIMIT)

{

//per superare i problemi di upload con grossi file uso SaveBinaryDirect https://msdn.microsoft.com/en-us/pnp_articles/upload-large-files-sample-app-for-sharepoint

using (System.IO.MemoryStream fs = new System.IO.MemoryStream(content))

{

Microsoft.SharePoint.Client.File.SaveBinaryDirect(_ctx, fileNew.ServerRelativeUrl, fs, true);

}

}

}

}



public void download(string filename, string localdir)

{

using (_ctx)

{

var spLib = _ctx.Web.Lists.GetByTitle(_RaccoltaDocumenti);

_ctx.Load(spLib.RootFolder);

_ctx.ExecuteQuery();



var targetFileUrl = string.Format("{0}/{1}", spLib.RootFolder.ServerRelativeUrl, System.IO.Path.GetFileName(filename));

var fileInfo = Microsoft.SharePoint.Client.File.OpenBinaryDirect(_ctx, targetFileUrl);



var localFile = System.IO.Path.Combine(localdir, System.IO.Path.GetFileName(targetFileUrl));

using (var filestream = System.IO.File.Create(localFile))

{

fileInfo.Stream.CopyTo(filestream);

}

}

}



public void delete(string filename)

{

using (_ctx)

{

List spLib = _ctx.Web.Lists.GetByTitle(_RaccoltaDocumenti);

_ctx.Load(spLib.RootFolder);

_ctx.ExecuteQuery();



var targetFileUrl = string.Format("{0}/{1}", spLib.RootFolder.ServerRelativeUrl, System.IO.Path.GetFileName(filename));

Microsoft.SharePoint.Client.File file = _ctx.Web.GetFileByServerRelativeUrl(targetFileUrl);



//Microsoft.SharePoint.Client.File file = _ctx.Web.GetFileByServerRelativeUrl("/sites/SPI/Documenti%20condivisi/csharp2pb.dll");

_ctx.Load(file, f => f.Exists);

file.DeleteObject();

_ctx.ExecuteQuery();

}

}



public void copioilfile()

{

string filename = @"c:\temp\gimmy.txt";

FileInfo filoc = new FileInfo(filename);

string destinationfile = @"c:\temp\gimmy2.txt";

filoc.CopyTo(destinationfile, true);

}

}

}

Thank you Gimmy, btw would this work in PB12.6 classic? Or will it only work on a higher version?

i use it with pb2019Rx, but i suppose, with a wrapper, it is possible to use the old version of pb