dll под windows 7

[trinitron]

Всем привет.

Написал библу под советник, под ХР работает нормально под семеркой пишет что советник не может вызвать библу - ошибка 126.

пробовал на нескольких дистрибах семерки (кстати лицензионные, как и ХР).

Я могу сделать в данном случае все без библы, но в будующем библа может пригодится и тогда будет сложно выкрутится.

[---]

Вы под семеркой делали и компилировали?

[trinitron]

sergeev:
Вы под семеркой делали и компилировали?

компилил под ХР, на делфи 6. А на семерку только готовую библу ставил.

[trinitron]

Кстати пытаюсь обойтись без длл и набросал вот парочку функций для обмена данными.

int getcom2(int zzz)
{
int hnd=FileOpen("com.txt",FILE_CSV|FILE_READ,';');
if (hnd>0) 
         {
         string s=FileReadString(hnd);
         return(StrToDouble(s));
         FileClose(hnd);
         }
         if  (hnd<1) {Print("ошибка получения команды");}

}

int succ2(int aaa)
{
FileDelete("com.txt");
 int  lastError=GetLastError();
  if(lastError!=0)
    {
     Print("An error ocurred while (",lastError,") deleting file com.txt");
     return(0);
    }


}
///------------------------------
int qt2(double zzz)

{
int hnd=FileOpen("pr.txt",FILE_CSV|FILE_WRITE,';');
if (hnd>0) 
         {
         FileWrite(hnd,zzz);
        
            FileClose(hnd);
         }
         if  (hnd<1) {Print("ошибка отправки котровок");}
         

}

[trinitron]

Вообщем вылазят траблы с удалением файла команд (com.txt) получается его создает другая прога, я хочу еще проверить как она его закрывает. ВОзможно прийдется этот механизм переделовать.

[Victor Nikolaev]

trinitron:
Вообщем вылазят траблы с удалением файла команд (com.txt) получается его создает другая прога, я хочу еще проверить как она его закрывает. ВОзможно прийдется этот механизм переделовать.

Может уже задача решена кем-то другим? Хотя свое решение всегда больше нравится

[TheXpert]

trinitron:

Кстати пытаюсь обойтись без длл и набросал вот парочку функций для обмена данными.

4-колесный велосипед с треугольными колесами.

[trinitron]

Проверил, из под внешней прги файл закрывается

function writeff(ss:string):Integer;

var

Varf:TextFile; // объявление файловой переменной

st:String; // строковая переменная

begin

AssignFile(Varf,'com.txt'); // привязка названия файла к файловой переменной

Rewrite(Varf); // открытие файла для чтения

WriteLn(Varf,ss); // читать из файла строку

CloseFile(Varf); // закрыть файл

Result:=1;

end;

[trinitron]

Vinin:

Может уже задача решена кем-то другим? Хотя свое решение всегда больше нравится

я готов кататся на велики с открытыми сорцами.

[trinitron]

TheXpert:
4-колесный велосипед с треугольными колесами.

самокат на гусеничной тяге.

[Victor Nikolaev]

trinitron:

я готов кататся на велики с открытыми сорцами.

Посмотри библиотеки от Вадима Жунко Может уже есть нужное