Hi all!
2 The Thing:
| Код |
//--- Попытка номер 6
/*
TFileStream *sf;
sf=new TFileStream(strs1,fmOpenRead);
int size=sf->Size;
TFileStream *df;
df=new TFileStream(strd1,fmCreate);
char *cbuff=new char(size);
sf->Read(cbuff,size);
df->Write(cbuff,size);
delete [] cbuff;
delete sf;
delete df;
TFileStream *sf1;
sf1=new TFileStream(strd1,fmOpenRead);
int size1=sf1->Size;
TFileStream *df1;
df1=new TFileStream(destin,fmCreate);
char *cbuff1=new char(size1);
sf1->Read(cbuff1,size1);
df1->Write(cbuff1,size1);
delete [] cbuff1;
delete sf1;
delete df1; */
//----Конец попытки номер 6
//--- Попытка номер 3
//int h1=CopyEx(strs1, strd1,false,false);
//DeleteFile(strd1);
//int h2=CopyEx(strd1, strd2,true,false);
//---- Конец попытки номер 3
// --- Попытка номер 4
//spawnl(P_WAIT,"copy","copy",strs1,strd1,"\>rep.txt",NULL);
//spawnl(P_WAIT,"copy","copy",strd1,strd2,"\>rep.txt",NULL);
//-- Конец попытки номер 4
//Попытка номер 5
/*
FILE *in, *out1;
in=fopen(strs1,"rb");
out1=fopen(strd1,"wb+");
int c;
while ((c=getc(in))!=EOF)
{
putc(c,out1);
}
fclose(in);
fclose(out1);
FILE *in2, *out2;
in2=fopen(strd1,"rb");
out2=fopen(destin,"wb+");
int c1;
while ((c1=getc(in2))!=EOF)
{
putc(c1,out2);
}
fclose(in2);
fclose(out2); */
//--Конец попытки номер 5--------------
|
А вот как выглядит мой API-шный вызов целиком:
| Код |
//#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
AnsiString ir="Copy in Win failed";
//AnsiString ir1="Copy";
HINSTANCE dllInstance;
typedef void (__import * CType(char *,char *, int));
CType * CopyFil=NULL;
dllInstance=LoadLibrary("kernel32.dll");
if (dllInstance)
{
CopyFil=(CType *)GetProcAddress(dllInstance, "CopyFileA"); // 77E711B9
if (CopyFil)
{
Label1->Caption=Label1->Caption+" kernel32 - ok "+IntToStr(CopyFil);
}
}
Label1->Caption=Label1->Caption+" nicht ";
if (CopyFil("file_src.tst","file_dest.tst",false)) MessageBox(NULL,ir.c_str(),ir.c_str(),MB_ICONSTOP);
CopyFil=NULL;
FreeLibrary(dllInstance);
//копируем 2-ой раз, контрольный.
dllInstance=LoadLibrary("kernel32.dll");
if (dllInstance)
{
CopyFil=(CType *)GetProcAddress(dllInstance, "CopyFileA"); // 77E711B9
if (CopyFil)
{
Label1->Caption=Label1->Caption+" kernel32 - ok "+IntToStr(CopyFil);
}
if (CopyFil("file_src2.tst","file_dest2.tst",false)) MessageBox(NULL,ir.c_str(),ir.c_str(),MB_ICONSTOP);
}
CopyFil=NULL;
FreeLibrary(dllInstance);
}
//---------------------------------------------------------------------------
|
Вот... |
.
