Cherche un traducteur connaissant le visual C++ et VB6

Question

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

NHenry · Answer

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

Cherche un traducteur connaissant le visual C++ et VB6

1 réponse

Votre réponse

Discussions similaires