internet

jeg lytter lige med :-)

Må det være MFC?

på fanen fastnet finder du et komponent der hedder nmFTP. Det bruger du sådan her :

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  NMFTP1->UserID = \"anonymous\";
  NMFTP1->Password = \"aa@bb.cc\";
  NMFTP1->ParseList = true;
  NMFTP1->Host = \"ftp.borland.com\";
try
{
  NMFTP1->Connect();
}
catch(...)
{
  MessageDlg(\"Error Connecting to remote computer !\\nPlease check your net connection and try again.\\nThis program will now close.\", mtError, TMsgDlgButtons() << mbOK, 0);
  Close();
}

}
//---------------------------------------------------------------------------

void __fastcall TForm1::NMFTP1Connect(TObject *Sender)
{
try
{
    Caption = NMFTP1->CurrentDir;
    NMFTP1->ChangeDir(\'pub/\');
}
catch(...)
{
  MessageDlg(\"Nar !!!\\nSådan en folder findes ikke\", mtError, TMsgDlgButtons() << mbOK, 0);
}

NMFTP1->Download(\"readrtip.pdf\", \"readrtip.pdf\");
NMFTP1->Disconnect();

}
//---------------------------------------------------------------------------


Jens B

borrisholt -> ikke fra ftp, men http

jammen så brug http komponenter i stedet ....

Jens B

catch( ); hvor kan jeg få forklaret den

try
{
  //Do Stuff

}
catch(...)
{
  //Handle Error 
}


Over sæt det til dansk :

prøv det her
{
}
fang (eventuelle execptions) //... betyser ALLe exceptiono
{
  håndter eventuelle fejl
}

jens B

jeg bruger dette:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  try
  {
    NMHTTP1 -> Get(\"ting.htm\");
  }
  catch(...)
  {
    MessageDlg(\"Side findes ikke\", mtError, TMsgDlgButtons() << mbOK, 0);
  }
}

Er der ikke en måde at se om serveren ikke kunne findes eller om det var siden der ikke kunne findes.

den rejser vel en exception ved når du laver din connect ?