При удалении потока Invalid Pointer Operation

[RIO]

Здравствуйте, написал программу для шифрования. Все работает хорошо, но при разрушении потоков появляется ошибка Invalid Pointer Operation. Как ее избавиться?

#include <vcl.h>
#pragma hdrstop
#include "Main.h"
#pragma package(smart_init)
#pragma resource "*.dfm"

TBox *Box;

unsigned char S[256];
unsigned int i, j;

void rc4_init(unsigned char *key, unsigned int key_length) {
    for (i = 0; i < 255; i++)
        S[i] = i;

    for (i = j = 0; i < 255; i++) {
         unsigned char temp;

        j = (j + key[i % key_length] + S[i]) % 255;
        temp = S[i];
        S[i] = S[j];
        S[j] = temp;
    }

    i = j = 0;
}

 unsigned char rc4_output() {
     unsigned char temp;

    i = (i + 1) % 255;
    j = (j + S[i]) % 255;

    temp = S[j];
    S[j] = S[i];
    S[i] = temp;

    return S[(temp + S[j]) % 255];
}

__fastcall TBox::TBox(TComponent* Owner)
        : TForm(Owner)
{
}

void __fastcall TBox::OButton1Click(TObject *Sender)
{
        if (OpenDialog1->Execute())
                Edit1->Text = OpenDialog1->FileName;
}

void __fastcall TBox::OButton2Click(TObject *Sender)
{
        if (OpenDialog1->Execute())
                Edit4->Text = OpenDialog1->FileName;        
}

void __fastcall TBox::SButton2Click(TObject *Sender)
{
        if (SaveDialog1->Execute())
                Edit5->Text = SaveDialog1->FileName;
}

void __fastcall TBox::SButton1Click(TObject *Sender)
{
        if (SaveDialog1->Execute())
                Edit2->Text = SaveDialog1->FileName;
}
void __fastcall TBox::RC4ButtonClick(TObject *Sender)
{
TFileStream *stream, *outstream;
unsigned char *c;
unsigned char *key;
int size;
AnsiString str;
c= new unsigned char [256];
for (int y = 0; y < strlen((unsigned unsigned char*)c); y++)
        c[y]=0;
stream = new TFileStream(Edit1->Text,fmOpenRead|fmShareDenyWrite);
outstream=new TFileStream(Edit2->Text,fmCreate|fmOpenWrite);
key=Edit3->Text.c_str();
rc4_init(key, strlen((unsigned char*)key));
size=stream->Size;

while(size>=0)
{
        if (size<256)
        {
                char b;
                while(stream->Read(&b,1))
                {
                        b^=rc4_output();
                        outstream->Write(&b,1);
                }
        }
        else
        {
                char b;
                while(stream->Read(&b,1))
                {
                        b^=rc4_output();
                        outstream->Write(&b,1);
                }
        }
        stream->Free();
        outstream->Free();
}
}
//---------------------------------------------------------------------------

[Пепел Феникса]

а разве delete stream не катит в билдере?

[RIO]

Катит Но при нем тоже самое

[Пепел Феникса]

стоп, верно, у вас же цикл, и сколько раз в цикле вы делаете Free потокам?

+внешний цикл вечный.

ЗЫ: кстати, вы не в Делфи, обьявлять переменные можно по месту использования, а не сверху

ЗЗЫ:

 if (size<256)

а какая разница в ветках условия?

[RIO]

Все работает Спасибо Да на самом деле понаписывал ерунды, сейчас буду исправлять эти недочеты

[Пепел Феникса]

while(size>=0)
{
        if (size<256)
        {
                char b;
                while(stream->Read(&b,1))
                {
                        b^=rc4_output();
                        outstream->Write(&b,1);
                }
        }
        else
        {
                char b;
                while(stream->Read(&b,1))
                {
                        b^=rc4_output();
                        outstream->Write(&b,1);
                }
        }
}
        stream->Free();
        outstream->Free();

а если так?(кстати надо чтоб size менялся, а то цикл вечный, может изза этого чтото и глючит?)

http://cplusplus.com/doc/tutorial/exceptions/ почитайте

[RIO]

Мы написали одновременно сообщения наверное Опять говорю Вам - огромное спасибо А насчет ссылки, уже читаю

[Пепел Феникса]

да, вы исправили, а я написал, вот так и вышло
ЗЫ, сайт полезный, но в принципе если в билдере вы, то вам не все интерестно оттуда будет.