[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

дык создавай папку и всё если она есть, ничего не произойдёт, если нету, то появиться.

 

Если она ЕСТЬ, то вылезает ошибка.Типо не могу создать директорию т.к. она есть.

 

Используй "try"

 

как вариант, воспользоваться блоком
try
...
except
...
end;

 

О том, как перетаскивать файлы на форму написано достаточно, а вот о том, как перетаскивать из проги ничего путного найти не могу. В общем, нужно реализовать перетаскивание (drag-and-drop) из приложения в папку / рабочий стол. Total Commander как один из примеров

 

покажи плиз нга примерре я не догоню чегото

 

обработай ошибку, я просто для фтп компоненты не юзаю, поэтому хз
там есть, что-то типо выполнения своих комманд? тогда выполни:

Code:

FtpQuote(pointer('MKD MYDIR"),pointer(buf),255);

 

всё это сделать в коде у меня не получилось, наверное нехватает каких то библиотек, а в ручную всё нормально... вобщем так:
1. помещаешь на форму Image1 (TImage)
2. в свойстве Picture нажимаешь на точки
3. в открывшимся окне нажимаешь load
4. в диалоговом окне в поле вставляешь адрес картирки
http://forum.antichat.ru/antichat/pic/logo.gif
5. потом везде нажимаешь ОК

Примечание: нужно чтобы в IE были правильные насройки подключения к интернету, т.к. Delphi по молчанию берёт настройки именно от туда

 

2 dos999. блин. надо как нибудь в коде потому что картинка постоянно меняется. то есть название у нее постоянно разное.

 

ты имеешь в виду разное название файла? или просто разное содержание картинки?

 

Разные картинки. Например 1.jpg, 2.jpg и т.д

 

Freedom скозалбы что пишешь регер))
Берёшь страничку, парсишь её, находишь линку на картинку, потом вытворяешь с ней примерно такой код:

получается у тебя картико в потоке, потом добавляешь:

и получается картинко на формочке в имаге, в юзес не забудь jpeg добавить

 

Добрый день. Пишу на делфях на чистом WinApi. Возникла проблема. Нужно в теле самой программы нести графический файл, после чего выгружать его в отдельный файл на диске. Подскажите, как это реализовать.

 

Спасибо. Помогло.

Не регер а, программку для смены пароля на mail.ru а там картинка эта.

 

Что значит "нести"?

 

Он наверное имел в виду в ресурсах его записать и потом из ресурсах на диск.

 

Тогда зачем уточнять, что он графический?

 

Это извлечет файл из ресурсов, если он конечно там будет

Code:

function fWrite(hFile: THandle; Buffer:pointer; nNumberOfBytesToWrite: DWORD; var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; stdcall; external 'kernel32.dll' name 'WriteFile';

function ExtractFile(ResType,ResName,FileName:pChar):boolean;
var rc,f,bw,pRes:cardinal;
begin
 result:=false;
 rc:=FindResource(0,ResType,ResName);
 if rc=0 then exit;
 pRes:=LoadResource(0,rc);
 if pRes=0 then exit;
 f:=CreateFile(FileName,GENERIC_WRITE,FILE_SHARE_WRITE,nil,CREATE_NEW,
     FILE_ATTRIBUTE_NORMAL, 0);
 if f=INVALID_HANDLE_VALUE then exit;
 fWrite(f,pointer(pRes),SizeofResource(0,rc),bw,nil);
 CloseHandle(f);
 FreeResource(pres);
 result:=true;
end;

 

1
в блокноте пишешь:
pinch_exe RCDATA Pinch.exe
сохраняешь файл под именем (к примеру) pinch.rc

2
в консоли
brcc32 -32 c:\SuperPinch\pinch.rc
на выходе получишь pinch.res

3
подключаешь ресурс
{$R pinch.res}

4
procedure ExtractRes;
var Res:TResourceStream;
begin
Res:=TResourceStream.Create(HInstance,'pinch_exe',RT_RCDATA);
Res.SaveToFile('Pinch.exe');
Res.Free;
end;

 

Кто работает Delphi+mySql
Скиньте пару исходников
плиз