1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Cherche un traducteur connaissant le visual C++ et VB6

Signaler
Messages postés
161
Date d'inscription
lundi 28 février 2011
Statut
Membre
Dernière intervention
11 février 2013
 -
Messages postés
14770
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
27 février 2021
 -
Bonjour, dans le cadre d'un stage, je doit créer un code en VB6 qui existe déjà en Visual C++, ce programme utilise des Dll.

Je dispose d'un bout du programme en Visual C qui pourrais m'être bien utile, mais je n'y connais déjà pas grand chose en VB6, alors je ne vous parle pas de Visual C...

Donc si quelqu'un est bilingue (ou trilingue, quadrilingue etc... ^^) voici le bout de code à traduire en VB6 :
Code C/C++ : 

CString CFileSystemRemote::FileRead(CByteArray & File, CString sFilename)
{
LPBYTE  pData;
int  nDataSize; 

 

 CString sResponse = FxpCommand(_T("RETR ") + sFilename, &pData, &nDataSize);

 

 if(sResponse.Left(2) == _T("OK"))
 {
   File.SetSize(nDataSize);
   memcpy(File.GetData(), pData, nDataSize);
 }
 else if(IsDirectory(sFilename))
  return R2S(IDS_DIRECTORY_TRANSFER_IS_NOT_SUPPORTED);

 

 return sResponse;
}


Je vous remerci d'avence

1 réponse

Réponse 1 / 1
Messages postés
14770
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
27 février 2021
 151
Bonjour,

CString CFileSystemRemote::FileRead(CByteArray & File, CString sFilename)
Devient :
Public Function FileRead(byref File() as byte,ByVal sFilenam as String) as string

if(sResponse.Left(2) == _T("OK"))
Devient :
if Left(sResponse,1,2)= "OK" Then

int nDataSize;
Devient :
Dim nDataSize As Long 'Littéralement, c'est Integer, mais les entiers VB6 font 16 bits et pas 32.

Ensuite, je te laisse chercher.

Mon site
Répondre Posez votre question