🚀 go-pugleaf

"Hans Galema" <notused@notused.nl> wrote in message 
news:4551ad3e$1@newsgroups.borland.com...
> Hanne B wrote:
>
>> How do I avoid such errors ?
>
> You forgot to tell which statement causes the AV.
> (which line of code?).
>
> Hans.
>


It doesn't happen in any of my lines but a short time after the code has 
been executed.

I get an exception message box:

Application Error:
Exception EAccesViolation in module FTPServer1.exe at 0000000
Access violation at address 00455B9B in module FTPServer1.exe. Read of 
address 0000000C.

Hanne




Example:

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  IdFTPServer1->Active = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::IdFTPServer1UserLogin(TIdFTPServerThread *ASender,
      const AnsiString AUsername, const AnsiString APassword,
      bool &AAuthenticated)
{
  AAuthenticated = true;
}
//---------------------------------------------------------------------------
TIdFTPServerThread *AThread = NULL;

void __fastcall TForm1::IdFTPServer1RetrieveFile(
      TIdFTPServerThread *ASender, const AnsiString AFileName,
      TStream *&VStream)
{
  AThread = ASender;

  VStream = new TMemoryStream();
  for (int i = 0; i < 100000; i++)
    VStream->Write("Test", 4);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ButtonDisconnectClick(TObject *Sender)
{
  if (AThread)
  {
    if (AThread->Connection &&
        AThread->Connection->ClosedGracefully == false)
        AThread->Connection->Disconnect();

    AThread->StopMode = smTerminate;
    AThread->Stop();
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::IdFTPServer1Disconnect(TIdPeerThread *AThread)
{
  AThread = NULL;
}
//---------------------------------------------------------------------------