» Вопросы по Delphi (все версии) - часть 3

Подскажите, пожалуйста, есть ли Delphi работающий на Vista. Да и чтобы не качать более 200 МБ

Chuvakstepan
Delphi 2007

Chuvakstepan
у меня прекрасно Турбо 2006 работает

А кто нибудь знает как можно произвести поиск файлов и папко на фтп сервере и с помощью каких компонентов можно отобразить содержимое фтп-сервака???

Добавлено:
И можно-ли работать с базой данных если она на фтп сервере лежит?

GreatOne
закладка Indy Clients тебе поможет...
конкретнее - TIdFtp

Цитата:

И можно-ли работать с базой данных если она на фтп сервере лежит?

в режиме скачал, изменил, залил заново - запросто
если база имеет полноценный сервер (MS SQL, Firebird,...) то можно работатать по сети (локальной или интернету) без ftp...

Glukodel
А как называется функция поиска у TIdFtp? А то через TIdFtp.List получать список и искать там неохота.

Подскажите, можно ли из Delphi подключиться к базе Lotus Notes не имея на компьютере самого Lotus Notes ?

RostY
Можно, если на компьютере установлен ODBC или OLEDB драйвер. В этом случае через ADO - компоненты.

MrZeRo
установил NotesSQL-3 (ОДБЦ-драйвер). А он пишет "не буду работать без установленного Лотус Нотеса".

MrZeRo

Цитата:

Можно, если на компьютере установлен ODBC или OLEDB драйвер. В этом случае через ADO - компоненты.

А разве Lotus Notes не клиент-сервер? И к серверу можно обратиться без клиентской части на компьютере?

День добрый. Простите, о гуру, за ламерский вопрос, но все же
Подскажите, пжалста, - как можно не особо геморно выделить файлы в каталоге по маске и скопировать их?
Пробовал копировать функциями winapi и джеди, да видно хреново разобрался, что-то вроде
FileCopy('c:\1\d*.*', 'c:\2\d*.*',true); не катит

Код: Procedure ScanDirMask(Dir, Mask: string);
var
SearchRec:TSearchRec;
begin
if Dir<>'' then
if Dir[length(Dir)]<>'\' then
Dir:=Dir+'\';
if FindFirst(Dir+Mask, faAnyFile, SearchRec)=0 then
repeat
if (SearchRec.name='.') or (SearchRec.name='..') then
continue;
if (SearchRec.Attr and faDirectory)<>0 then
ScanDirMask(Dir+SearchRec.name, Mask) //Опускаемся в поддиректорию, если надо
else
Showmessage(Dir+SearchRec.name); //Заменить на процедуру копирования файла
until
FindNext(SearchRec)<>0;
FindClose(SearchRec);
end;

Можно ли в ApdTapiDevice (Async Pro) после поднятия трубки работать непосредственно с COM портам?
И, еще, может кто подскажет как мне решить эту проблему ?
Спасибо.

Люди подскажите плиз че я делаю неправильно???

var
Stream:TStream;
begin
Stream:=TStream.Create;
IdFTP1.Get(Adres,Stream);
Memo1.Lines.LoadFromStream(Stream);

Пишет что абстрактная ошибка.

GreatOne
Что ты хочеш зделать? скачать файл по фтп?
я качал вот так

Код:
procedure TFTPThread.Download;
var
aFiles: TStringList;
x: Extended;
begin
try
FTPClient.Connect;
if FChangeDir <> EmptyStr then FTPClient.ChangeDir(FChangeDir);
aFiles:= TStringList.Create;
FTPClient.List(aFiles, FFileName, true);
if aFiles.Count > 0 then begin
FBytesTotal := FTPClient.Size(FFileName);
x := GetFileSize(FLocalFileName);
if x >= 0 then
FBytesAlreadyDone := x
else
FBytesAlreadyDone := 0;
if FLastTime = 0 then FLastTime := time;
FTPLog('Починаємо скачування файла ' + FFileName + '...');
FTPLog('Розмір: ' + FloatToStrF(FBytesTotal, ffFixed, 9, 0) + ' байт');
aFiles.Free;
FTPClient.Get(FFileName, FLocalFileName, false, true);
end
else begin
FTPLog('Файла ' + FFileName + ' не існує. Скачування буде перервано.');
FTPClient.Disconnect;
aFiles.Free;
FFlag := FL_FILE_NOT_EXISTS;
Terminate;
end;
FDownloadCompleted := true;
FTPLog('Скачування файла успішно завершено');
FTPClient.Disconnect;
except
on E:Exception do begin
FTPLog('ERROR: ' + E.Message);
end;
on E:EIdException do begin
FTPLog(E.Message);
end;
end;
end;

Solnake
Не, мне нужно загрузить данные из файла в TMемо - не сохраняя его на хард.

GreatOne
Сделай так

begin
Memo1.Lines.Add(IdHTTP1.Get(Adres));
end;

Добавлено:
Упс. не увидел, что для фтп надо.

GreatOne, а справку на предмет использования стримов почитать слабо?
или текст ошибки почитать...
вместо TStream.Create нужно TFileStream.Create писать...

Цитата:

IdFTP1.Get(Adres,Stream);

Там не должен еще третий параметр разве стоять?

2 Joker79
Спасибо! Работает

Подскажите пожалуйста, как в Delphi программно узнать версию шейдеров на видеокарте пользователя?

dyr farot
Ну как раз если данные на диск писать не надо, то лучше подойдет TMemoryStream.
GreatOne
TStream - абстрактный класс, который только описывает общие для всех стримов свойства и методы, а конкретную реализацию оставляет для наследников, поэтому его экземпляр создать нельзя.

RomanTim
Спасибо!

Здравствуйте у меня к вам мастера такой вопрос.

1. допустим есть файлик excel с названием Отчет.xls
2. есть текстовые файлики содержащие всего одну строку.
3. в файлике отчет.xls есть специальные ячейки в которые необходимо вставить строчку
из текстового файлика. К примеру: В ячейку E2 необходимио вставить содержимое текстового файлика E2.txt. Текстовый файлик содержит моленкую строчку к примеру: 12345.

Подскажите как можно сделать?

uses ..., comobj;

procedure
var XL:Variant;
s:string;
row,col:integer;
begin
try
try XL := GetActiveOleObject('Excel.Application');
except XL := CreateOleObject('Excel.Application');
end;
except
raise Exception.Create('Can nor run Excel');
End;
XL.Visible := True;
XL.Workbooks.Add('Отчет.xls');
// s:=прочитать значение из файла
// row:= ... ; col:=... ;
XL.Cells[row, col].Value:=s;
end;

Здравствуйте!
Может кто сталкивался со следующей проблеммой - в Delphi 2007 невозможно создать Remote Data Module - его просто нет в списке добавляемых форм.

Если кто сталкивался, то пожалуйста скажите, как это можно побороть...

MsdLamer
по поводу Excel - просто в дополнение к ответу уважаемого RostY - Этот вариант будет работать ТОЛЬКО на машине, где установлен Excel. Есть ещё возможность сделать то же самое, БЕЗ самого Excel (без использования OLE)
но тогда потребуются сторонние компоненты для доступа к файлам XLS (например, XLSReadWriteII или TXLSFile.Library). но эти компоненты не бесплатны.

Извините если я задаю глупый вопрос, но есть-ли в дельфи спец команда которая меняет значение переменной типа boolean(меняет значение на противоположное текущему)? Если криво объяснил привожу пример:

команда(boolean) //если был true станет false и наоборот

GreatOne
var b: boolean;

b := TRUE;
b := not b; // b := FALSE

Это имелось в виду?

Ну типа того

Добавлено:
А можно-ли через idftp залить на фтп папку со всеми файлами и подкаталогами - одной командой? Или нужно вручную создавать каталоги и закидывать файлы?