delphi ve asp için her türlü sorularınızı bekliyorum

ASp mi yoksa php mi tavsiye edersiniz?

arkadaşım tabiki php tavsiye edirim bakma zamanında asp öğrendi php ile asp ile yapacaklarının hepsini ve daha fazlasını yaparsın ama asp sana bir altın bilezik olur öğrenmenin sınırı yok .

delphi de bileşenleri anlatan bir kaynak lazım, mümkünse türkçe. kullanım metodları vs falan. şöyle elimizib altında sözlük gibi kullanabileceğimiz bir şey olsa ne kadar iyi olur diyorum. Bu konda bildiğin bir kaynak varmı?

şu an elimde kaynak yok ama eğer istersen bileşen nasıl eklenir nasıl kullanılır diye bir makele yazabilirim özel olarak ilgilenmemi istediğim bir bileşen varsa linkini ver kurar bakarız

teşekkür ederim. istersen sen bileşenlerle ilgili yazacağın makaleyi buraya ekle, böylelikle herkes faydalansın. aklımıza takılanları sana sorarız. değinmediğin bir bileşen olursa sana yazarız güzel bir kaynak oluşur burada. ben bu forumun daha çok kulalanılmasıiçin bu tarz bilgileri içermesi gerektiğini düşünüyorum

Delphi Ve bileşenler

Bileşen Nedir ?
aslında hepsi bir procedure veyahut fonksiyonun kullanımını daha kolay hale getirilmiş halidir.
örnek verecek olursak delphideki yukarıda araç çubuğundan tıklayıp formun üzerine koyduğunuz her şey bir bileşenndir.
delphideki standart button bile bir bileşendir eğer bu button bileşen halinde olmasaydı her butonu eskiden pascalda yaptığımız gibi tanımlamak zorunda kalırdı.

Nasıl yüklenir.

ilk olarak indirdiğiniz bileşen paketinin içeriğine iyice bakmanız gerekir. Normalde kimi bileşen yazanlar
dpk dosyalarınıda hazırlarlar. Bu dpk dosyalarının üzerine çift tıkladığınızda açılır daha sonra oradaki pencerede compile yada installa butonuna basarsanız. Compile bileşini çalışıp çalışmadığını test eder.
Install ise yükler. Siz ikisinede basın. Neyse bileşeniniz yüklenir.

Farzedelimki bu paket dosyası yok o zaman file menüsünden
new seçeneğinin altındaki other atıklıyoruz oradan package seçeneğini seçiyoruz.
çıkan kutu paketi delphide açıtığımzda çıkacak penceredir ama şu anda içinde hiç bir dosya yoktur.
add diyip oradan gözat penceresinden pas dosyasını şeçip tamam demektir. Sonra yine install diyebilirsiniz.
fakat install etmeden önce save diyip bileşene bir isim vermek gerekir bu isim önemlidir zira daha önce o isimde
bir bileşen yüklendiyse ve ayni ismi verirseniz o bileşini kaldırıp yerine yeni bileşeniniz gelecektir.

siz kutuyu ilk açtığnızıda package1.dpk olarak gelir daha sonra bir component yüklerken yine kaydetmeden install ederseniz bbir
önceki componentiniz silinecektir.

Olası hatalar

dosyaadi.pas veya dosya adi.dcu bulunmadı.
siz bileşeni yükledikten sonra örneğin masa üstündeki kaynaktan delphi yol tanımına bu bileşenin yerini eklemezsene o dosyaları bulamaz
yol tanımı yapmak yerine c:\ program files\borland\delphi7 sizde 6 veya 5 olabilir. \lib klasörü aldına pas ve dcu dosyalarınız kopyalayınız böylece delphi
aradığı dosyaları bulacaktır. Bu dosyaların salt okunur olmamasına dikkat edin yine hata verebilir.

delphi 5 ten 6 taşınırken 'DSGNINTF componenti kaldırılmıştı bu componentin dosyaları bir yerden bulursam buraya upload etmeyi deneyeceğim bu dosyaları çalıştırdıktan ve gerekli yereler kopyaladıktan sonra hiçbir sıkıntınız kalmayacatır

Şimdilik bu kadar devamını vaktim olunca yazacağım ilginize ve sabrınıza teşekkür ederim

www.hazirkod.com sana yeterince yardımcı olucak sanırım ya da www.delphiturk.com

teşekkürler arkadaşlar. banada benden sonra bu konuda bilgi edinmek isteyenlerede yardım cı olacaktır.

Tpower sock kullanarak
otomatik download ve dosyaya kaydeden bir procedure yazmak istiyorum
ancak internet delphi parçaları üstüne fazla bilgim yok
help e bakarak oradan buradan aldığım bilgilere bakarak birşeyler yapıyorum
(tercüme kafamı duvarlara vuruyorum)
neyse
yardım eden olursa sevinirim

medusa yı ve express webpics i bilenler dediğimi anlıyacak
veriler şunlar
farzedelim ki ben programda ilkönce alttaki variablara bu bilgileri kodum
var 1 url adresi saklıyor http://www.sexynoelle.com (bununla connect yapılacak)
var 2 url+klasör+dosyasını saklıyor http://www.sexynoelle.com/members/gallery/set1/pic1.jpg (bununla GET yapılacak)
klasör demekle ınternet sitenin klasörü olarak kasdediyorum
var 3 set1 klasörünü saklıyor
program gidip bilgisayara set1 diye bir klasör açıp pic1.jpg ı kaydedip
olay bitiyor


hata kontrol ederek ve download fail yaparsa fail bilgilerini de kaidetmek istiyorum
mesela file not found forbıdden access denied gibi hataları (yani 40x hataları) bir pencereye veya txt dosyasına.

yardım ederseniz bunu webmate programıma ekliyecem.
İhtiyaçlar icatları doğurur derler
programı javascriptle açılan resim sitelerinden resim indirmek için yazdım
şu an sadece flash getle compatible bir html dosyaya üretip resim numaralarını yazıyor. Tarayıcınızda açılıp tek tek tıklamak lazım. Ya da flashget kullanmak lazım.
İlgilene varsa screen cap ekte

oncelikle bir ftp protokolu kullanmanlazım. bunun için delphite indy(internet direct ) componet paleti üzerinde idftp form üzerine koy sonra
host kımına bağlanılacak yeri
port kısmını açık portu
password kısmına passwordu yaz

dosyayı downoad etmek için
procedure Get(const ASourceFile: string; const ADestFile: string; const ACanOverwrite: boolean = false; AResume: Boolean = false); overload;

proceduru gullanıyorsun
ASourceFile : string olup oradaki dosya ismi örn 1.jpg
Adestfile : local dizinde nereye yazılacağı
Aresume : download yarım kalırsa devam edip edilmeyeceği

bunları yazarakda dosyayı download edebilirsin

Status(var AStatusList: TStringList);

idftp1 eventslarında status var burata status list stringlisti ve status stringi var bunlarda server tarafından geçilen mesajlar hepsini kayıt yaptırabilirisin

kısa bir örnek verirse
button 1 click olayına

idftp1.host='www.bilmemnere.com';
// port nosunu yazıyoruz idftp1.port:=21
// kimi hostlar bağlantı için şifre ister o zaman idftp1.password:=''; yazacaksın
idftp1.connect;
idftp1.Get('1.jpg','c:\x\1.jpg',False,True);

onstatus olayınada
edit1.text:=astatus.text;
ben edite kaydettirdim sen dosyaya kaydettirebilirsin

Arkadaşlar Delphi'de ...
PhoneCall Componenti Arıyorum.(Free olucak benim bulduklarım lisanslı)
Şimdiden teşşekküler..

arachnida
cevabi benim için yazdınsa teşekkürler
benim ilgilendiğim sitelerde ftp server yok
protokol http
password ve user name koruması da var (.htaccess) içerik adult
bu direk dosyaya kaydetmek işini nasıl yapacam diye sordum

zep ortak kusura bakma kafam karışıktı yanlış anlamışım hemen bakıyorum
halletmeye çalışıcam


{diğer kodlardan yararlanarak biras değişiklik yaptım . güzel oldu galiba. gerisi size kalmış . kolaygelsin
servet
yildiz_servet@mail.ru}
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Psock, NMHttp, Mask, ToolEdit, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
pb: TProgressBar;
Label1: TLabel;
NMHTTP1: TNMHTTP;
Editurl: TEdit;
Label2: TLabel;
editfilename: TFilenameEdit;
editbtime: TEdit;
edittimefark: TEdit;
Timer1: TTimer;
Label3: TLabel;
edithiz: TEdit;
Label4: TLabel;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
btime,btimefark:ttime;
otoplam,toplam:dword;
implementation

{$R *.dfm}

uses wininet;
procedure gy_DownloadFile_to_file(const Url: string;File1,File2: String; Obj:TObject);
var
hdr:string;
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
Buffer: array[0..1024] of Char;
BytesRead,NumWritten: dWord;
ToF: file;
begin
form1.NMHTTP1.Head(URL);
hdr:=form1.NMHTTP1.Header;
hdr:=copy(hdr,pos('Content-Length:',hdr)+15,Length(hdr));
hdr:=copy(hdr,1,pos(#13,hdr));
//form1.ShowMessage(Trim(hdr));
form1.pb.Max:=strtoint(Trim(hdr));
Toplam:=0;
NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

if Assigned(NetHandle) then
begin
UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
if Assigned(UrlHandle) then
{ UrlHandle valid? Proceed with download }
begin
FillChar(Buffer, SizeOf(Buffer), 0);
AssignFile(ToF, file1);
Rewrite(ToF, 1); { Record size = 1 }
repeat
FillChar(Buffer, SizeOf(Buffer), 0);
InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
Toplam := Toplam + BytesRead;
if assigned(Obj) and ( Obj is TLabel) then
TLabel(obj).caption := File2+' '+Trim(hdr)+'/'+ FloatToStr(Toplam)+' Byte indi ' ;
form1.pb.Position :=toplam;
form1.edittimefark.text:=timetostr(time-btime);
BlockWrite(ToF, Buffer, BytesRead,NumWritten);
Application.ProcessMessages;
until BytesRead = 0;
InternetCloseHandle(UrlHandle);
CloseFile(ToF);
end
else
{ UrlHandle is not valid. Raise an exception. }
raise Exception.CreateFmt('Cannot open URL %s', [Url]);

InternetCloseHandle(NetHandle);
if assigned(Obj) and ( Obj is TLabel) then
TLabel(obj).caption := 'Tamamlandı';
end
else
{ NetHandle is not valid. Raise an exception }
raise Exception.Create('Unable to initialize Wininet');
end;
procedure TForm1.Button1Click(Sender: TObject);
var Obj1:TObject;
begin
btime:=time;
editbtime.Text:=timetostr(btime);


gy_DownloadFile_to_file(editurl.Text ,editfilename.FileName ,'c:\de2.jpg',label1);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edithiz.Text :=inttostr((toplam-otoplam) div 1000)+ 'k';
otoplam:=toplam;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
halt;
end;

end.

zep baba yukarıdaki kodu buldum çok fazla inceleyemedim ama
gördüğüm kadarıyla nmhttp bu herhalede delphi5 de mevcut onu kullanıyor ayrıca dosyanının nekadarın filan indirildiğinide gösteriyor bu gün bayağı yoğunum forma bile giremedim eğer cözemessen yarına ben senin istediğin gibi düzenler buraya yazarım

Yaaa ben 3-4 günden beri cvp bekliyorum... ????
Yok derseniz ok'e derim çekilirim...

baba baktım ama free bulamadım şimdi
*****lanabilir bir tane arıyorum onun için geç kaldım
kusuru bakmayasın

Çok teşekkürler
delphi 6 developers edition kullanıyorum
bu programa ek bir özellik olsun diye istedim
buradan bir dl yap bak
source unu da yollarım istersen
url yazıp arkasındaki resim numarasını siliyorsun
program istediğin numaradan başlayıp son numaraya kadar resim ismlerini liste yapıyor
sadece resim değil istediğin uzantıyı numaradan sonra otomatik olarak ekliyor
bunu java scriptle açılan thumbnail galerileri indirmek için kullanıyorum

http://members.lycos.co.uk/pixpal/zep/WEBMATE2.zip


zep klasörü şifre korumalı
isim zepeveng
şifre ********

kopya paste yap
yoksa açılmaz
açılmazsa
http://members.lycos.co.uk/pixpal/zep
yapıştır
webmate2.zip e tıkla

Baba bunu demen bile benim içimi rahatlattı teşeküürler yardımlarınların için senin gibi bende her gün bu forumdayım... Componentimi 4 gözle senden bekliyorum

mustafa şimşek diye birinin sitesi var orda baya iyi dersler var. tavsiye ederim.

ya hocam bu delphiyi nerede yazıcaz bende kitabı var ama yazacak yer yok..