Delphi Forum

Mysql ile yaptığım bir tablom var. Bu tabloda yil,ay ve gun1-gun2 ... gun31 diye ayrılan bölümlerim var. Bu tablo içerisinde
örnek olarak

gün1 ile gun15 arasındaki verileri nasıl sorgulayabilirim. Herkese Kolay Gelsin. İyi Hafta Sonları Dilerim.

çözüme bir hocamın yardımı sayesinde aşağıdaki kodlar ile ulaştım teşekkür ederim.

var
I: Integer;
Buton: TObject;
begin
if UniTable1.RecordCount > 0 then
begin
UniTable1.First;
for I := 0 to UniTable1.RecordCount - 1 do
begin
Buton := FindComponent('BitBtn' + (i + 1).ToString);
if Assigned ...

Herkese iyi çalışmalar dilerim. Form üzerinde 30 adet bitbutonum var ve bunların bilgileri veritabanından çağırılıyor. Alt taraftaki kod bu yüzden bayağı bir uzuyor. Bunu nasıl bir döngüye alıp kod kalabalığından kurtulabilirim.

begin
with UniQuery1 do
begin
close;
sql.clear;
sql.add('Select ...

Form=00 item=01 - Name="keywords"
Form=00 item=02 - Name=""
Form=01 item=01 - Name="username"
Form=01 item=02 - Name="password"
Form=01 item=03 - Name="autologin"
Form=01 item=04 - Name="viewonline"
Form=01 item=05 - Name="redirect"
Form=01 item=06 - Name="sid"
Form=01 item=07 - Name="login ...

Anladım ki forumda bunu kullanan yok
Peki farklı bir şekilde web host üzerinde bulunan mysql veritabanına nasıl bağlanabilirim. Sunucum direk bağlantıya izin vermiyor. Okyanusu geçip derede boğmayın beni lütfen

hayırlı günler

server üzerindeki mysql veritabanına bağlanmaya çalışıyorum ama sonuç alamadım genel olarak internette paylaşılan aşağıdaki kodlar var bu kod ile ilgili bir sorunmu var bağlanamıyorum veya farklı bir yol ile çözebilirmiyim yardımcı olabilirmisiniz. Tunnel.php server üzerinde yüklü ...

İyi akşamlar. Aşağıdaki kod ile 1,00 - 2,00 - 3,00 sorunsuz kayıt oluyor ama 1,25 - 1,50 gibi küsüratlı girdiğim zaman kaydetmek yerine daha önce kaydedilmiş diyor hatam nerede acaba yardımcı olabilirmisiniz?

procedure TForm1.hizmetekleBTNClick(Sender: TObject);
begin
if (Trim(komisyonTutarED ...

dDeğerli hocalarımız daha iyisini verene kadar bu kod işini görebilir

procedure TForm1.Edit1Exit(Sender: TObject);
var
uzn : integer ;
begin
uzn:=length(edit1.Text ); //edite giren textin uzunluğu
if uzn = 1 then //uzunluk 1 ise 0 ekle
begin
edit1.Text := '0' + Edit1.Text;
end;
end;

:ara LoadStream, SaveStream

Hocam bu şekilde denemiştim ama ne hata veriyor nede image üzerinde gösteriyor ...


var strMemo: String;
Decoder: TIdDecoderMIME;
DecodedStm: TStringStream;
ms:TMemoryStream;
begin
strMemo:=aradansec(faturaweb.OleObject.document.body.innerHTML, 'base64 ...

Cevaplar için teşekkür ederim

Tüm html kodu bir değişkene al ve bu değişkenden başka bir değişkene blok blok alarak tag temizle. Her kelime arasında boşluk olduğuna göre boşluğa denk geldiğinde bunu al bir satıra yapıştır. Ne kullandığını bilmiyorum ama dilersen embedded webbrowser bileşeninde hiç ...

Ben bu kodlar ile yapmayı başardım ama aradaki boşluk sayısı değişirse çalışmayacak. Daha kolay ve garanti bir yolu varmı acaba ?

var
sorgusonucu : string;
begin
sorgusonucu := aradansec(EmbeddedWB1.OleObject.document.body.innerHTML, 'Tarihi</th>' , '</table>');
memo2.Text:= html_temizle ...

var
TagBegin, TagEnd, TagLength: integer;
begin
TagBegin := Pos( '<', S);

while (TagBegin > 0) do begin
TagEnd := Pos('>', S);
TagLength := TagEnd - TagBegin + 1;
Delete(S, TagBegin, TagLength);
TagBegin:= Pos( '<', S);
end;
Result := S;
end;


Bu kodlar ile html tagları çok güzel bir şekilde ...

Cevaplar ve göstermiş olduğunuz yol için teşekkür ederim. Alttaki kod ile image üzerinde gösterebiliyorum.

Son bir sorum daha olacak yardımcı olursanız eğer çok sevinirim. Burada d:\test.jpg olarak kaydettirmeyip direkt olarak image üzerinde nasıl gösterebilirim ?


var strMemo: String;
Decoder ...

Soruyu makale kısmına sormuşum yanlışlıkla. İsmi alttaki şekilde görünen captcha kodunu nasıl image üzerine alıp çözümleyebiliriz acaba ?

[url]data:image/jpg;base64 ...

İsmi alttaki şekilde görünen captcha kodunu nasıl image üzerine alıp çözümleyebiliriz acaba ?

[url]data:image/jpg;base64,iVBORw0KGgoAAAANSUhEUgAAAJYAAAAiCAIAAAAyOLfWAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAeRSURBVGhD7ZrpTxVXGMb9A ...