Архив форумов ЦИТФорума

[maSta]

написал прогу которая работает по дде с мирком (irc client) так вот все работало ок в
C++ builder v1.0 . Поставил 3 builder и теперь у меня эксепшоны вылетают....в смысле баги уже при запуске. Возможно нужно закрывать предыдущий топик перед открытием нового?

вот код:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
AnsiString s;

if(DdeClientConv1->SetLink("miRC","COMMAND")) {
DdeClientConv1->PokeData("COMMAND","//echo * miRC maSta ToolZ v1.0 connected.");
StatusBar1->SimpleText="--> Link Established" ;}
else {
Application->MessageBox("Cannot find miRC!!!","Fuck happenss...",MB_OK);
Application->Terminate(); }
bRefreshClick(NULL);
}
//-------------------------------------------.. -----
void __fastcall TForm1::bSendClick(TObject *Sender)
{
DdeClientConv1->SetLink("miRC","COMMAND");
DdeClientConv1->PokeData("COMMAND",Edit2->Text.c_str());
}
//-------.. -----
void __fastcall TForm1::bRefreshClick(TObject *Sender)
{
AnsiString s(300);
DdeClientConv1->SetLink("miRC","VERSION");
s="Version : ";
s+=DdeClientConv1->RequestData(NULL); // ТУТ ВЫЛЕТАЕТ! !! ХОТЯ МИРК УЖЕ ПОДКЛЮЧЕН
// вылетает даже если просто без s+=... т.е. при // RequestData
lVer->Caption=s;
DdeClientConv1->SetLink("miRC","EXENAME");
s="ExeName : ";
s+=DdeClientConv1->RequestData(NULL);
lExe->Caption=s;
DdeClientConv1->SetLink("miRC","INIFILE");
s="IniPath : ";
s+=DdeClientConv1->RequestData(NULL);
lIni->Caption=s;
DdeClientConv1->SetLink("miRC","NICKNAME");
s="NickName : ";
s+=DdeClientConv1->RequestData(NULL);
lNick->Caption=s;
DdeClientConv1->SetLink("miRC","SERVER");
s="ServerName : ";
s+=DdeClientConv1->RequestData(NULL);
lServer->Caption=s;
DdeClientConv1->SetLink("miRC","CHANNELS");
s="Channels : ";
s+=DdeClientConv1->RequestData(NULL);
lChan->Caption=s;
}

Помогите пож.